Вывести числа от 7 до 100, кратные 7, используя while. Посчитать их количество и сумму. Язык-Паскаль.

Var

i, k, s:integer;

begin

k:=0; s:=0;

i:=7;

Writeln ('Числа на интервале [7; 100], кратные 7:') ;

while i<=100 do begin

Write (i,' ') ;

s:=s+i; Inc (k) ;

i:=i+7

end;

Writeln;

Writeln ('Сумма этих чисел равна ', s,', количество равно ', k) ;

end.

Результат выполнения программы

Числа на интервале [7; 100], кратные 7:

7 14 21 28 35 42 49 56 63 70 77 84 91 98

Сумма этих чисел равна 735, количество равно 14