Question

Срочно. Найдите сумму чисел от 0 до 30. Паскаль. Желательно с объяснением каждой строчки. Попроще.

Answer 1

var i,s:integer; //создаем целочисленные переменные i и s

begin //начало программы

s:=0; //задаём начальное значение переменной s

for i:=1 to 30 do s:=s+i; //создаём счётчик for от 1 до 30 с последующим суммированием в переменную s

writeln(s); //печатаем переменную s

end. //конец программы

Answer 2

Конечно, вот программа на языке Pascal, которая находит сумму всех чисел от 0 до 30:

pascalCopy code
program SumNumbers;
var
  i, sum: integer;
begin
  sum := 0; // Инициализируем переменную sum нулевым значением

  for i := 0 to 30 do
  begin
    sum := sum + i; // Добавляем текущее значение i к сумме
  end;

  writeln('Сумма чисел от 0 до 30 равна: ', sum); // Выводим сумму на экран
end.

Объяснение каждой строки:

1. program SumNumbers; - Объявляем начало программы с именем "SumNumbers".
2. var i, sum: integer; - Объявляем две переменные i и sum типа integer. i будет использоваться для итерации через числа от 0 до 30, а sum для накопления суммы.
3. begin - Начало основной части программы.
4. sum := 0; - Инициализируем переменную sum нулевым значением.
5. for i := 0 to 30 do - Начинаем цикл, который будет выполняться от 0 до 30 включительно.
6. begin - Начало тела цикла.
7. sum := sum + i; - Добавляем текущее значение i к сумме sum.
8. end; - Конец тела цикла.
9. writeln('Сумма чисел от 0 до 30 равна: ', sum); - Выводим на экран сообщение с вычисленной суммой.
10. end. - Конец программы.

После выполнения этой программы, она выведет на экран сумму чисел от 0 до 30.