Question

вычислить и вывести значения площадей 40 квадратов при различных значениях их сторон (А>0 ) Pascal.

Answer 1

I: integer;
begin
for i := 1 to 40 do
writeln(sqr(i),' Сторона = ',i);
end.

Answer 2

Для вычисления и вывода значений площадей 40 квадратов при различных значениях их сторон в Pascal, вы можете воспользоваться следующим кодом:

pascalCopy code
program CalculateSquareAreas;

var
  i: Integer;
  sideLength: Real;
  area: Real;

begin
  writeln('Вычисление площадей 40 квадратов');
  writeln;
  
  for i := 1 to 40 do
  begin
    write('Введите длину стороны квадрата ', i, ': ');
    readln(sideLength);
    
    // Проверка на положительность стороны
    if sideLength > 0 then
    begin
      area := sideLength * sideLength;
      writeln('Площадь квадрата ', i, ' с длиной стороны ', sideLength, ' равна ', area);
    end
    else
    begin
      writeln('Некорректное значение стороны. Сторона должна быть больше 0.');
    end;
    
    writeln; // Пустая строка для разделения вывода
  end;
end.

Этот код предложит вам ввести длины сторон 40 квадратов и вычислит их площади, предоставляя результаты на экране. Он также включает проверку на положительность стороны, чтобы обеспечить корректные значения.