Вот простейший вариант, где вводятся соответственно стороны 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 s,i,n,a: integer;
begin
read(a,n);
s: =1;
for i : = 1 to n do
s: =s*a;
writeln('a в степени n = ',s);
s: =1;
for i : = 1 to n do
s: =s*i;
writeln(s);
s: =0;
for i: = 1 to n do
begin
read(a);
s: = s + a;
end;
writeln('среднее арифметическое = ',s/n)
end.
Ответ дал: Гость
векторная графика масштабируется без потери качества изображения, но в растровой графике возможно использование более богатой цвтовой палитры.
Популярные вопросы