Задание:
Информатика «Программирование разветвляющихся алгоритмов» 1. Написать программу, определяющую по длинамсторон A. B. C, является ли треугольник равнобедренным.
Решение:
var a,b,c,r,x,y: integer; Begin read (a,b,c); if (a=b) or (a=c) or (b=c) then writeln ('Ravnobedrennyj'); read (a,r); if (a*a>pi*r*r) then writeln ('Kvadrat bolshe') else writeln ('Krug bolshe'); read (x,y); if x>y then writeln (y*y,',x*x*x,', (x+y) /2); else writeln (x*x,',y*y*y,', (x+y) /2); End.
Знаете другой ответ?