Вот простейший вариант, где вводятся соответственно стороны 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 a, b, c: integer;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if a < b then if a < c then writeln(a, ' - меньшее') else writeln(c, ' - меньшее') else if b < c then writeln(b, ' - меньшее') else writeln(c, ' - меньшее'); end.
Ответ дал: Гость
v= 36864 бит/с
1 стр.= 2304 сим.* 8 бит= 18 432 бит
4 стр.= 18 432 бит* 4= 73 728 бит=s
t - ?
t= s/v
t= 73728 бит / 36 864 бит/c= 2
ответ: 2
Ответ дал: Гость
var i: integer; begin for i: = 2 to 14 do writeln(i*i); end.
Популярные вопросы