Question

Написати програму розв'язку задачі в лазарус. Дано 5 квадратів. Сторона першого 3 см, а кожного наступного збільшується на 2 см. Вивести на екран їх площі.

Answer 1

program SquareArea;

var

 i, side, area: integer;

begin

 side := 3; // Початкова сторона першого квадрата

 for i := 1 to 5 do

 begin

   area := side * side; // Розрахунок площі квадрата

   writeln('Квадрат зі стороною ', side, ' має площу ', area, ' см²');

   side := side + 2; // Збільшення сторони для наступного квадрата

 end;

end.

Answer 2

Ось приклад програми на Lazarus, яка розв'язує вашу задачу:

pascalCopy code
program SquareAreas;

uses
  crt;

var
  side, area: Integer;
  i: Integer;

begin
  side := 3; // Початкова довжина сторони першого квадрата

  for i := 1 to 5 do
  begin
    area := side * side;
    writeln('Площа квадрата ', i, ': ', area, ' см^2');
    side := side + 2; // Збільшуємо довжину сторони на 2 см для наступного квадрата
  end;

  readln;
end.

Ця програма використовує цикл for для обчислення площ квадратів. Змінна side зберігає довжину сторони поточного квадрата, а змінна area використовується для обчислення площі кожного квадрата. Програма виводить площі кожного квадрата на екран.