для death note!!!

настроение:Безразличное

Нравится

Написать комментарий

Рейтинг

02-08-2009 13:44 (ссылка)

Re: для death note!!!

СПС

ответить (с цитатой)

Олег Сушкевич 06-08-2009 17:46 (ссылка)

Re: для death note!!!

Program all;
Var
a:integer;
begin
repeat
Writeln('PASTE NUMBER');
READLn(a)
until (a<=50) and (a>=0);
If (a>=0) and (a<=25) then begin
Writeln('1'); readln;
end;
If (a>=26) and (a<=50) then begin
Writeln('2'); readln;
end;
end.

ответить (с цитатой)

Написать комментарий