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

Обсуждение задачи 1204. Идемпотенты

I am getting output limit exceeded. Can you help me? here is my program
Послано Giorgi Dalakishvili (Tbilisi SU) 15 дек 2005 19:42
I am getting output limit exceeded. Can you help me? here is my program:
var
a,b,c,d,i,k,j:integer;
p:boolean;
s:array[1..1000] of integer;
begin
readln(i);
for a:=1 to i do
readln(s[a]);
for k:=1 to i do begin
if k<>1 then writeln(' ');
write(0,' ',1);
p:=false;
if s[k] mod 2=0 then begin
a:=2; b:=trunc(s[k]/2); p:=true; end;
d:=3;
while p=false do
if (s[i] mod d)=0 then begin a:=d; b:=trunc(s[k]/d); p:=true; end
else d:=d+2;
c:=a;
while c+1<s[i] do begin
if (c-1) mod b=0 then write(' ',c);
if (c+1) mod b=0 then write(' ',c+1);
c:=c+a;
end; end;
end.