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

Question

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

Answer 1

Var
  i,k,s:integer;
begin
  k:=0; s:=0;
  i:=7;
  Writeln('Числа на интервале [7;100], кратные 7:');
  while i<=100 do begin<br>    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