Задача 2 Урок 12.2
Primary tabs
http://fkn.ktu10.com/?q=node/8811
У вас есть программа, использующая цикл while:
var
i: integer;
begin
i:=1;
while i
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; end.
- Log in to post comments
- 687 reads