Question

Вывести все натуральные числа от 1 до 50 кратные 5 и их сумму, написать программу в паскале

Answer 1

var i,s: integer;

begin

 for i:=1 to 50 do if i mod 5=0 then begin writeln(i); s:=s+i; end;

 writeln(s);

end.

Answer 2

Вот пример программы на языке Pascal, которая выводит все натуральные числа от 1 до 50, кратные 5, и их сумму:

program MultiplesOfFive;

var
  i, sum: integer;

begin
  sum := 0;

writeln('All natural numbers from 1 to 50 that are multiples of 5:');
  for i := 1 to 50 do
  begin
    if i mod 5 = 0 then
    begin
      writeln(i);
      sum := sum + i;
    end;
  end;

writeln('Sum of all multiples of 5:', sum);
end.

В данной программе используется переменная `i` для итерации по числам от 1 до 50. С помощью оператора `mod` проверяется, делится ли текущее число `i` на 5 без остатка. Если да, то число `i` выводится на экран и добавляется к переменной `sum`. В конце программы выводится сумма всех кратных 5 чисел.