Ответы на вопрос:
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.это лишь для квадрата и прямоугольного треугольника : -)
Популярно: Информатика
-
КрутойМиха15.10.2021 19:06
-
INKOGNIT00916.07.2020 09:03
-
ivanovaa75011.04.2021 23:39
-
85369217.10.2021 02:56
-
vikap88813.02.2022 22:35
-
Кобра22832212.03.2022 03:10
-
mozya0001mozya25.05.2020 09:53
-
SilverSalt10.06.2023 02:00
-
sevostyanova200227.06.2023 07:29
-
oxxximiro106.02.2023 03:34