Вот простейший вариант, где вводятся соответственно стороны 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: array[1..10] of integer;
i,s: integer;
begin
randomize;
for i: = 1 to 10 do begin
a[i]: = random(100);
s: =s+a[i];
end;
writeln(s);
end.
var a: array[1..10] of integer;
i,mk,pk,s,p: integer;
begin
randomize;
p: =1;
for i: = 1 to 10 do begin
a[i]: = random(30+10)-10;
if a[i]> =0 then begin
pk: =pk+1;
s: =s+a[i];
end
else begin
mk: =mk+1;
p: =p*a[i];
end;
end;
writeln(pk,s,mk,p);
end.
Ответ дал: Гость
var i: integer; begin for i: = 2 to 14 do writeln(i*i); end.
Ответ дал: Гость
var x,y,x1,y1,x2,y2: integer;
begin
read(x,y,x1,y1,x2,y2);
if (x< x1) and (x> x2) and (y< y1) and (y> y2) then
Популярные вопросы