Question

В лототроне по порядку лежат шары с номерами от 100 до 200. Он выбрасывает каждый седьмой. Составьте алгоритм на языке паскаль для определения номеров выпавших шаров. Обязательно цикл с предусловием.

Answer 1

Var
  i:integer;
begin
  i:=100;
  while (i+7<200) do begin
    inc(i,7);
    write(i,' ');
  end;
end.