Составить программу для вычисления периметра квадрата
Аноним:
ты че больная
Ответы
Ответ дал:
0
Ответ:
паскаль
uses crt;
var a,b,P:integer;
w:char;
begin
writeln ('Введите геометрическую фигуру 1-квадрат 2-прямоугольник');
readln(w);
if w='1' then
begin
write ('Введите сторону квадрата a=');
read(a);
P:=a*4;
write('P= ',P);
end
else if w='2' then
begin
writeln('ВВедите a и b');
readln(a,b);
P:=(a+b)*2;
write('P=',P);
end
else write('Такой фигуры нет')
end.
Объяснение:
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
6 лет назад
6 лет назад
8 лет назад