Решение 2 Задача 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.Перепешите её с помощью цикла for
var i: integer; begin for i:=1 to 100 do begin if (((i+1) mod 5) = 2) then write(i, ' '); end; readln(); end.
КОНСОЛЬ
1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76 81 86 91 96
- Log in to post comments
- 1040 reads