Вот простейший вариант, где вводятся соответственно стороны 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.
Ответ дал: Гость
15 гб = 15360 мбайт = 122880 мбит
32 мин = 1920 с.
скорость = 122880/1920 = 64 мбит/с
Ответ дал: Гость
program divisors;
var
n,i: integer;
begin
readln(n);
for i: =n downto 1 do if n mod i = 0 then write(i,' ');
Популярные вопросы