t: real; begin randomize; n: =20; for i: = 1 to n do begin a[i]: =random(n*10)- 10*n div 2 ; write(a[i]: 4); if i mod 10=0 then writeln; end;
t: =a[1]
for i: = 1 to n do begin a[i]: =a[i]/t ; write(a[i]: 4); if i mod 10=0 then writeln; end; end.
Спасибо
Ответ дал: Гость
4 клетки вниз и 7 вправо
Ответ дал: Гость
Вот простейший вариант, где вводятся соответственно стороны 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.
Популярные вопросы