ENG
RUS
Timus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум
Обсуждение задачи
1001
. Обратный корень
IlushaMax
Pascal:Correct Answer for new
[2] // Задача
1001. Обратный корень
7 мар 2016 17:15
var
a:array [1..200000] of int64;
n,i: integer;
begin
{$IFNDEF ONLINE_JUDGE}
{$ENDIF}
while not seekeof do
begin
inc(i);
read(a[i]);
end;
for n:=i downto 1 do
begin
writeln(sqrt(a[n]):4:4);
end;
{$IFNDEF ONLINE_JUDGE}
{$ENDIF}
end.
calmbear26
Re: Pascal:Correct Answer for new
[1] // Задача
1001. Обратный корень
18 мар 2016 17:06
bug in this line ( while not seekeof do )
look this
http://pascal.net.ru/SeekEof
IlushaMax
Re: Pascal:Correct Answer for new
// Задача
1001. Обратный корень
22 мар 2016 15:26
see this
http://acm.timus.ru/help.aspx?topic=pascal
© 2000–2026
Timus Online Judge Team
. Все права защищены.