Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Составить 2 программы для расчета периметра и площади прямоугольника

Ответ оставил Гость

Нахождение площади
var a,b,s:integer;
begin
writeln(Введите A и B: );
readln(a,b);
s:=a*b; //формула
writeln(Площадь прямоугольника равна: ,s); 
end.

Нахождение периметра

var a,b,p:integer;
begin
writeln(Введите A и B: );
readln(a,b);
p:=2*(a+b); //формула
writeln(Периметр прямоугольника равен: ,p); 
end.

На паскале