Zyuvavol
7 год назад
Написать програму вычесления площади и периметра прямоугольника , если извесна длина сторон a, b.(Всё это дольжно выгледит програмай для паскаль ADC)
ОТВЕТЫ
Родионович
Jul 12, 2019
Var
a,b,P,S:integer;
begin
writeln(Введите а и b);
read(a,b);
S:=a*b;
P:=(a+b)*2;
writeln(Периметр равен = ,P);
writeln(Площадь равна = ,S);
end.
a,b,P,S:integer;
begin
writeln(Введите а и b);
read(a,b);
S:=a*b;
P:=(a+b)*2;
writeln(Периметр равен = ,P);
writeln(Площадь равна = ,S);
end.
89
Смежные вопросы:
