Обсуждение @ 1209. 1, 10, 100, 1000... @ Timus Online Judge

Online Judge	Задачи	Авторы	Соревнования
О системе Часто задаваемые вопросы Новости сайта Форум Ссылки	Архив задач Отправить на проверку Состояние проверки Руководство	Регистрация Исправить данные Рейтинг авторов	Текущее соревнование Расписание Прошедшие соревнования Правила

вернуться в форум

Обсуждение задачи 1209. 1, 10, 100, 1000...

What's wrong?(pascal)

Послано Jumbo 19 мар 2011 23:52

var n,a,i,x,k:integer;

begin
readln(n);

for i:=1 to n do begin
readln(a);
x:=1;
k:=1;
repeat
x:=x+k;
k:=k+1;
until a-x<=0;
if a=x then write('1',' ') else write('0',' ');
end;

end.

Re: What's wrong?(pascal)

Послано Valentinez Alkalinella Xifax 1 июл 2011 16:45

Edited by author 01.07.2011 16:46