урок 12.2 задача 2
Primary tabs
У вас есть программа, использующая цикл while:
var
i: integer;
begin
i:=1;
while i begin
write(i, ' ');
i:=i+5;
end;readln();
end.
Вариант 1.
Используем цикл REPEAT/UNTIL
begin i := 1; repeat write(i, ' '); i := i + 5; until (i >100); readln(); end.
Вариант 2.
Используем цикл FOR
var i:integer; begin write(1,' '); 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
- 1835 reads
vedro-compota
Tue, 04/26/2022 - 20:47
Permalink
for i := 1 to 100 do
--
_____________
матфак вгу и остальная классика =)
isaac_fan
Sat, 04/30/2022 - 21:40
Permalink
вот исправил
vedro-compota
Tue, 05/10/2022 - 17:39
Permalink
это не решение задачи
это не решение задачи, задача должна продолжать работать по условию после правки
_____________
матфак вгу и остальная классика =)
isaac_fan
Tue, 05/17/2022 - 16:34
Permalink
вот
vedro-compota
Tue, 05/24/2022 - 20:38
Permalink
засчитано
засчитано, исправить форматирование
_____________
матфак вгу и остальная классика =)
vedro-compota
Tue, 06/07/2022 - 20:22
Permalink
исправить форматирование
исправить форматирование
_____________
матфак вгу и остальная классика =)
isaac_fan
Sat, 06/11/2022 - 13:36
Permalink
вот исправил