Question

Найти сумму всех натуральных чисел кратных 5. Информатика. Паскаль.

Answer 1

Var
  i, sum, N: integer;

begin
sum:=0;
  Write('Введите диапазон чисел (1..N): ');
  readln(N);
  for i:=1 to N do if i mod 5=0 then sum:=sum+i;
  writeln('Сумма всех натуральных чисел, кратных 5-ти, в диапазоне от 1 до ',N,' = ',sum);
end.

Answer 2

Конечно, давайте напишем программу на языке программирования Паскаль, чтобы найти сумму всех натуральных чисел, кратных 5, в определенном диапазоне. Например, допустим, мы хотим найти сумму таких чисел до определенного предела N.

Вот пример кода на языке Паскаль:

program SumOfMultiples;
var
  i, N, sum: integer;

begin
  // Вводим значение N
  write('Введите значение N: ');
  readln(N);

// Инициализируем сумму
  sum := 0;

// Вычисляем сумму чисел, кратных 5
  for i := 1 to N do
  begin
    if i mod 5 = 0 then
      sum := sum + i;
  end;

// Выводим результат
  writeln('Сумма натуральных чисел, кратных 5, до ', N, ': ', sum);

// Ждем нажатия клавиши перед завершением программы
  readln;
end.

Краткое пояснение кода:

1. Мы используем переменные `i`, `N` и `sum` для итерации, ввода пользовательского значения N и хранения суммы, соответственно.

2. С помощью цикла `for` мы проходим через все числа от 1 до N.

3. Используем оператор `mod` для проверки, делится ли текущее число на 5 без остатка. Если да, то оно кратно 5, и мы добавляем его к сумме.

4. Выводим результат на экран.

5. `readln` в конце программы используется для того, чтобы программа не закрывалась сразу после выполнения, давая пользователю увидеть результат.

Пользователь должен ввести значение N, и программа вычислит сумму всех натуральных чисел, кратных 5, до этого значения.