Ответы на вопрос:
var a,b,c,S,P:real;
begin
writeln('Введите значения a и b:');
readln(a,b);
S:=a*b/2;
c:=sqrt(a*a+b*b);
P:=a+b+c;
writeln('Периметр равен ',P);
writeln('Площадь равняется ',S);
end.
Популярно: Информатика
-
lalalllaaaallllalala26.04.2023 23:12
-
ek72Wasdk12.06.2020 01:32
-
needhelpneedhelp01.08.2021 03:41
-
iae1512p0dn0730.03.2021 04:51
-
luska05921.11.2022 22:28
-
Шишкин55505.04.2020 14:51
-
spiridon11.11.2021 02:21
-
qwerty87811.04.2021 20:21
-
tor14200312.04.2020 01:50
-
yarikplay1317.10.2022 02:37