Question

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

Answer 1

program dlb;

var s,i : integer;

begin

s:= 0;

for i := 1 to 50 do

if i mod 5 = 0 then

begin

s := s + i;

write(i,' ');

end;

writeln();

writeln('Сумма этих чисел: ',s);

end.