Задача 3 Урок 12.2
Primary tabs
У вас есть программа, использующая цикл while:
123456789101112var
i:
integer
;
begin
i:=
1
;
while
i<=
100
do
begin
write
(i,
' '
);
i:=i+
5
;
end
;
readln();
end
.
- Объясните что делает эта программа (что будет выведно на экран и почему)
- Перепешите её с помощью цикла repeat/until
- Перепешите её с помощью цикла for
На экран будут выводиться цирфы от 1 до 100 с шагом 5
program Variant2; var b: integer; begin b:= 1; repeat write(b, ' '); b := b + 5; until (b > 100); end.
program Variant2; var b, i: integer; begin b:= 1; for i:= 1 to 20 do begin write(b, ' '); b:= b + 5; end; end.
- Log in to post comments
- 715 reads
vedro-compota
Wed, 05/18/2022 - 20:22
Permalink
for i:= 1 to 20 do
--переписать только с i
_____________
матфак вгу и остальная классика =)
studentmedic
Wed, 06/01/2022 - 16:30
Permalink
program Variant2;