Составьте программу для вычисления площади фигур (pascal abc)

258

329

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

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

Slysly

Информатика

4,8(47 оценок)

Program ploshad; uses crt; var a,b,c: real; begin write('a= '); readln(a); write('b= '); readln(b); if (a< =0)or(b< =0) then write('сторона не может быть отрицательной, либо равна нулю') else c: =a*b; writeln('площадь квадрата, с заданными параметрами равна - ',c); c: =a*b/2; writeln('площадь прямоугольного треугольника, с заданными параметрами равна - ',c); end.это лишь для квадрата и прямоугольного треугольника : -)