Задача 2 Урок 12.2
Primary tabs
У вас есть программа, использующая цикл while:
var i: integer; begin i:=1; while i<=100 do begin write(i, ' '); i:=i+5; end; readln(); end.Объясните что делает эта программа (что будет выведно на экран и почему)
Перепешите её с помощью цикла repeat/until
Перепешите её с помощью цикла for
С помощью repeat/until:
var i: integer; begin i:=1; repeat write(i, ' '); i += 5; until i > 100; readln(); end.
С помощью for:
var i: integer; begin write(1, ' '); for i := 1 to 100 do if (i < 100) and (i mod 5 = 0) then write(i + 1, ' '); readln(); end.
- Log in to post comments
- 834 reads