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

Составьте, пожалуйста, две программы на паскале :
1. Составить программу a=b*c/d
2. Составить программу: нахождение площади прямоугольника.

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

1.
program qwer;
var a,b,c,d: real;
begin
read(b,c,d);
a:=b*c/d;
write(a);
end.

2.
program qwer;
var a,b,s: real;
begin
writeln(Введите стороны);
read(a,b);
s:=a*b;
writeln(s);
end.