Перепишите программу вычисления периметра и площади прямоугольника ** языке Паскаль,...

Question

Перепишите программу вычисления периметра и площади прямоугольника на языке Паскаль, исправив ошибки: Program primer Var a, b, s, p: integer; Begin ; Writeln(‘Введите стороны прямоугольника =’ ReadLn(a,b); P=a+b; S=a×b; WriteLn(‘Площадь = ’s); WriteLn(‘Периметр=’p); End

Answer 1

Ответ:

program primer;

var a, b, s, p:integer;

begin

writeln ('Введите стороны прямоугольника');

readln (a, b);

p:=2*(a+b);

s:=a*b;

writeln ('Площадь=', s);

writeln ('Периметр=', p);

end.