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

Цикл с предусловием. На языке паскаль.

Question

Стеша

26 мая, 22:06

+2

Ответы (1)

Знаешь ответ?

Павлиня · Answer 1

Var

i:integer;

begin

i:=100;

while (i+7<200) do begin

inc (i, 7);

write (i,' ');

end;

end.