Урок 12.2 Задача 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
Решение:
var i,k: integer; begin i:=1; while i<=100 do begin write(i, ' '); i:=i+5; end; readln(); i:=1; repeat write(i, ' '); i:=i+5; until i>100; readln(); for i:=1 to 100 do if ((i+4) mod 5 = 0) then write(i, ' '); readln(); end.
Консоль:
1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76 81 86 91 96 1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76 81 86 91 96 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
- 552 reads
vedro-compota
Wed, 05/18/2022 - 20:28
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)