Question

Как в Паскале зациклить программу? То есть как выполнять одну и ту же операцию много раз, используя один раз введенные данные в начале? Если можно, приведите небольшой пример.

Answer 1

Это делается с помощь цикла for либо цикла while либо цикла repeat
Цикл for:
var
i, n: integer;

begin
write ('Количество знаков: ');
readln (n);

for i := 1 to n do
write ('(*) ');

readln
end.

Цикл While
var
i, n: integer;

begin
write ('Количество знаков: ');
readln (n);

i := 1;
while i <= n do begin
write ('(*) ');
i := i + 1
end;

readln
end.

Цикл repeat
var
i, n: integer;

begin
write ('Количество знаков: ');
readln (n);

i := 1;
repeat
write ('(*) ');
i := i + 1
until i > n;

readln
end.