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