я сказал себе однажды, что я не курю. Детали есть. Сначала я заставил себя осознать полностную профнепригодность, что меня девушки не любят и излишество телефонов у кого-либо.
Я сумел перебороть себя, но девушки меня не любят до сих пор.
Раздел: Прочая живность, ответов: 67, последний комментарий: 22.10.2011 11:29
Может быть, но не кайф. другое. Ощущение того, что мир вертится, что все хорошо, что-то подобное. Честное слово, я, как Вы говорите, сосал дым только для того, чтобы приобщиться к общности, какой-то другой, большей, не тех полтора гопника, которые мне из подъезда выходить не давали, и не тех мужчин, которым я говорил спасибо, и те6м более не милиционерам, да будет их прах изъят. К счастью, друзья -- улыбнитесь.
Раздел: Прочая живность, ответов: 67, последний комментарий: 22.10.2011 11:29
Вам нужно два варианта? Ответ тут однозначный.
Первый вариант это 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.
Раздел: Программирование, ответов: 4, последний комментарий: 21.10.2011 05:46
и Вам спокойной ночи, доброе утро. Вино, Зонтик. Я отфутболировал мяч зонтом . Куда-то вверх. Стекло разбил, но команда моя, фудболирумая, уже не попала в милицию.
Ладно, простите меня, я трепаться пока перестаю. Мне мой знакомый художник попросил сделать ему подборку акварелей английских художников. Думать видите ли ему лень. Отсель откланиваюсь.
Раздел: Любовь, ответов: 16, последний комментарий: 09.10.2011 03:55