Ответы на вопрос:
ответ:var n:byte;
a,b,h:real;
begin
writeln ('Введи номер фигуры 1-квадрат, 2-трапеция, 3-круг, 4-прямоугольник');
readln(n);
if n=1 then
begin
writeln ('Введи сторону квадрата');
readln(a);
writeln('Площадь квадрата=',sqr(a));
end;
if n=2 then
begin
writeln ('Введи длины оснований и высоту');
readln(a, b, h);
writeln ('Площадь трапеции =', (a+b)/2*h:1:1);
end;
if n=3 then
begin
writeln ('Введи радиус');
readln(a);
writeln ('Площадь круга =', pi*sqr(a):1:1);
end;
if n=4 then
begin
writeln ('Введи длины cторон');
readln(a, b);
writeln ('Площадь прямоугольника =', a*b);
end;
end.
Объяснение:
Популярно: Информатика
-
irynafurmanets09.02.2022 09:26
-
серый38606.06.2023 01:17
-
Ksu57621.01.2022 17:42
-
nataliamakarov308.06.2020 20:33
-
CoreyTaylor66611.02.2020 22:32
-
vershinindaniil131.08.2020 08:42
-
veder111oy2x7103.07.2021 11:02
-
alexandra15230.12.2021 17:53
-
lsoft11.04.2021 13:33
-
МаркЛеткеман26.09.2022 10:56