Задача 1 Урок 12.2 Repeat/Until
Primary tabs
For, While и Repeat/Until в Паскаль -- связь между циклами и их взаимозаменяемость
{12-2.1 Имеется программа: }
var i: integer; begin for i:=5 to 34 do write(i, ' '); readln();
{Перепишите её, используя цикл while. }
i:=5; while (i <= 34) do begin write(i, ' '); i:= i + 1; end; readln();
{Перепишите её, используя цикл repeat/until.}
i:=5; repeat begin write(i, ' '); i:= i + 1; end; until(i > 34) ; end.
- Log in to post comments
- 527 reads