Вот простейший вариант, где вводятся соответственно стороны 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.
Ответ дал: Гость
1)
var
a,b,c: real;
begin
readln(a,b);
c: =180-a-b;
if (a> 90) or (b> 90) or (c> 90) then writeln('тупоугольный')
else
if (a=90) or (b=90) or (c=90) then writeln('прямоугольный')
else writeln('остроугольный');
end.
2)
var
v: real;
begin
readln(v);
if v< 7.8 then writeln ('ракета упадет на землю');
if v=7.8 then writeln ('ракета станет спутником земли');
if (v> 7.8) and (v< =16.4) then writeln ('ракета останется в пределах солнечной системы'); if (v> 16.4) then writeln ('ракета покинет пределы солнечной системы');
end.
Ответ дал: Гость
вот на c:
#include < stdio.h> int main(void){ int i; for(i = 50; i > = -50; i -= 10) { printf("%d\n", i); } printf("\n"); system("pause"); return 0; }
Популярные вопросы