Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников. program triangles; var a1,b1,c1,a2,b2,c2: integer; begin writeln('введите стороны первого треугольника.'); read(a1,b1,c1); writeln('введите стороны второго треугольника, соответственно сторонам первого.'); read(a2,b2,c2); if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('да, треугольники равны.') else writeln('нет, треугольники не равны.'); end.
Ответ дал: Гость
совершенное число это число равное сумме своих делителей отличных от самого числа
var i, s,j : integer;
begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.
Ответ дал: Гость
s : = 0
for i : = 1 to n do
if i mod 2 = 1 then
s : = s - 1/2/n
else
s : = s + 1/2/n;
Ответ дал: Гость
специалист сельского хозяйства с высшим образованием, всесторонними знаниями в области агрономии.
уличный танец, одно из течений хип-хоп культуры.
непродолжительная по времени художественно составленная последовательность кадров.
единица измерения расстояния в некоторых европейских неметрических системах мер
светозащитные устройства, состоящие из вертикальных или горизонтальных пластин.
морская рыба семейства .
ехнические приёмы получения движущихся изображений, иллюзий движения и/или изменения формы объектов (морфинг) с нескольких или множества неподвижных изображений и сцен.
сладкое блюдо кухни.
универсальный прил. 1) охватывающий всё или многое; всеобъемлющий. 2) разными знаниями, навыками; разносторонний. 3) выполняющий разнообразные функции.
Популярные вопросы