Дорогие друзья! Помогите решить задачу в Paskal
Пользователь вводит две стороны трех прямоугольников вывести их площадь
// PascalABC.Net
procedure RectangleSquare;
var
a,b:double;
begin
Write(Введите через пробел длины сторон прямоугольника: ); Read(a,b);
Writeln(Площадь прямоугоьника равна ,a*b)
end;
var
i:byte;
begin
for i:=1 to 3 do RectangleSquare
end.
Тестовое решение:
Введите через пробел длины сторон прямоугольника: 3 7
Площадь прямоугоьника равна 21
Введите через пробел длины сторон прямоугольника: 12.4 15.8
Площадь прямоугоьника равна 195.92
Введите через пробел длины сторон прямоугольника: 14 12.5
Площадь прямоугоьника равна 175
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
