Задача 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
program U12_2Z2; var i: integer; begin i:=1; repeat write(i, ' '); i:=i+5; until (i>100); readln(); end.
program U12_2Z2; var i: integer; begin i:=1; write(i, ' '); for i:=1 to 100 do begin if ((i mod 5)=0) and (i<100) then write(i+1, ' '); end; readln(); end.
- Log in to post comments
- 563 reads