Урок 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: integer; begin i:=1; repeat write(i, ' '); i:=i+5; until (i > 100); readln(); end. } var i, a: integer; begin for i:= 1 to 100 do if ((i mod 5) = 1) then begin writeln(i); end; readln(); end.
- Log in to post comments
- 875 reads
vedro-compota
Thu, 07/29/2021 - 20:48
Permalink
исправить форматирование
исправить форматирование
_____________
матфак вгу и остальная классика =)
MrDeadSummer
Thu, 07/29/2021 - 22:06
Permalink
var i: integer;