Тема #52590

 #  

 #  

тоже самое токо :
while(утверждение)
{
действие для повторения;
}

но ето для языка С\С++

 #  

можно вместо цикла фор сделать while х4 не равно 0 do . . . Dec(x4), и так же с другим циклом.

 #  

#521021 пишет

тоже самое токо :
while(утверждение)
{
действие для повторения;
}

но ето для языка С\С++

а это - для дельфая:

while условие do begin
{комментарий - тут вставляем чё делаем}
end;

 #  

Вам нужно два варианта? Ответ тут однозначный.
Первый вариант это while. Второй repeat until.

Добавлено спустя 16 минут 44 секунды
Вариант с while

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

function ask() : boolean;
var c : char;
begin
write( 'Proceed with program execution? [y/n]' );
readln( c );
if( (c = 'y') or (c = 'Y') or (c = 'н') or (c = 'Н') ) then
result := true
else
result := false;
end;

var i, x2 : integer;
g: string;
begin
while( ask() ) do begin
Writeln('text povtoreniya?');
Readln(g);
Writeln('kol-vo povtorov?');
Readln(x2);
for i:=1 to x2 do Writeln(g);
end;
writeln( 'Done!' );
readln
end.

Добавлено спустя 18 минут 13 секунд
Вариант с repeat until

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

function ask() : boolean;
var c : char;
begin
write( 'Proceed with program execution? [y/n]' );
readln( c );
if( (c = 'y') or (c = 'Y') or (c = 'н') or (c = 'Н') ) then
result := true
else
result := false;
end;

var i, x2 : integer;
g: string;
begin
repeat
Writeln('text povtoreniya?');
Readln(g);
Writeln('kol-vo povtorov?');
Readln(x2);
for i:=1 to x2 do Writeln(g);
until( not ask() );
writeln( 'Done!' );
readln
end.