В лототроне по порядку лежат шары с номерами от 100 до 200. Он выбрасывает каждый седьмой. Составьте алгоритм для определения номеров выпавших шаров.
Цикл с предусловием. На языке паскаль.
Ответы
Ответ дал:
0
var
i:integer;
begin
i:=100;
while (i+7<200) do begin
inc(i,7);
write(i,' ');
end;
end.
i:integer;
begin
i:=100;
while (i+7<200) do begin
inc(i,7);
write(i,' ');
end;
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад