Question

Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7.ПАСКАЛЬ ПОМОГИТЕ ПОЖАЛУЙСТА!!!

Answer 1

Program sadadasf;
var i,k: integer;
begin
k:=0;
For i:=1 to 50 do
If (i mod 5=0) or (i mod 7=0) then k:=k+i;
Writeln('Сумма этих чисел: ',k);
end.

Answer 2

Для решения этой задачи вам потребуется использовать цикл и условные операторы. Возможно, вам будет полезно знать, что оператор "%" возвращает остаток от деления двух чисел.

Давайте рассмотрим алгоритм решения задачи:

1. Инициализируйте переменную "сумма" нулевым значением. Она будет использоваться для хранения суммы чисел, которые делятся на 5 или 7.

2. Используя цикл, пройдитесь по всем натуральным числам от 1 до 50.

3. В каждой итерации цикла проверьте, делится ли текущее число на 5 или 7 без остатка, используя оператор "%".

4. Если число делится на 5 или 7 без остатка, добавьте его к переменной "сумма".

5. После завершения цикла, выведите значение переменной "сумма".

Вот пример кода на языке Pascal, реализующий описанный алгоритм:

program SumOfNumbers;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 1 to 50 do
  begin
    if (i mod 5 = 0) or (i mod 7 = 0) then
      sum := sum + i;
  end;
  writeln('Сумма чисел, делящихся на 5 или 7: ', sum);
  readln;
end.

После выполнения этого кода на экране будет выведено значение суммы чисел, которые делятся на 5 или 7 в диапазоне от 1 до 50.