Даны числа а и в. если числа равны, то каждое число удвоить, а если не равны, то разделить на 2 нарисовать блок !

255

410

Посмотреть ответы 1

Ответы на вопрос:

nastagaeva0672

Информатика

4,4(79 оценок)

Program vby_1; uses crt; var a,b,c: real; begin writeln('*** alphaues is ***'); writeln('ok, введите катеты: '); write('a= '); readln(a); write('b= '); readln(b); writeln('периметр прямоугольного треугольника = ',a+b+sqrt(a*a+b*b): 8: 2); end. program vby_2; uses crt; var a,b,h,t: real; begin writeln('*** alphaues is ***'); writeln('ok, введите данные: '); write('одно основание = '); readln(a); write('другое основание = '); readln(b); write('высота = '); readln(h); t: =abs(a-b)/2; writeln('периметр трапеции =',a+b+sqrt(h*h+t*t): 8: 2); end. program vby_3; uses crt; var s: integer; begin writeln('*** alphaues is ***'); write('ok, введите расстояние в сантиметрах: '); readln(s); write('число полных метров = ',s div 100); end.