Написать программу на языке паскаль. даны стороны прямоугольника a и b. найти его периметр P=2*(a+b)
Ответы на вопрос
Ответил ladyvdashenkav
0
uses crt;
var a, b, S, P:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
S:=a*b; P:=2*(a+b);
write('S=',S,' ','P=',P);
end.
var a, b, S, P:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
S:=a*b; P:=2*(a+b);
write('S=',S,' ','P=',P);
end.
Новые вопросы