Вычислить и вывести значения площадей 40 квадратов при различных значениях их сторон (А>0 ) Pascal.
Вычислить и вывести значения площадей 40 квадратов при различных значениях их сторон (А>0 ) Pascal.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program AreaOfSquares;
var
side, area: real;
i: integer;
begin
for i := 1 to 40 do
begin
side := random(100) + 1; // генерация случайной стороны от 1 до 100
area := side * side; // вычисление площади квадрата
writeln('Площадь квадрата со стороной ', side:0:2, ' равна ', area:0:2);
end;
end.