Question

Знайти суму цілих чисел від 20 до 30 програмний код в лазарус СРОЧНО ❗❗❗❗❗❗❗❗❗

Answer 1

Ответ:

procedure TForm1.Button1Click(Sender: TObject);

var i,s:integer;

begin

S := 0;

for i := 20 to 30 do

S := S + i;

Label1.Caption := IntToStr(S);

end;    

Answer 2

Звісно, ось програмний код на мові програмування Lazarus (Object Pascal), який знаходить суму цілих чисел від 20 до 30:

pascalCopy code
program SumOfIntegers;

var
  sum, i: integer;

begin
  sum := 0;
  
  for i := 20 to 30 do
  begin
    sum := sum + i;
  end;
  
  writeln('Сума цілих чисел від 20 до 30: ', sum);
end.

Цей код використовує цикл for, щоб пройти всі цілі числа від 20 до 30 і додати їх до змінної sum. Результат виводиться на екран за допомогою процедури writeln. Не забудьте зберегти файл з розширенням .pas та скомпілювати його в середовищі Lazarus для виконання програми.