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

Question

Никон

5 год назад

ОТВЕТЫ

Wilcox Brian

Oct 24, 2020

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.

208