Обсуждение @ 1001. Обратный корень @ Timus Online Judge

but until giving error

Послано zzzlll 19 янв 2007 11:25

var
a:array[1..1000] of real;
i,k:longint;
begin
while not eof do
begin
k:=k+1;
read(a[k]);
end;
for i:=k downto 1 do writeln(sqrt(a[i]):0:4);
end.

Edited by author 20.01.2007 15:19

Edited by author 20.01.2007 17:42

Re: please look where is my error??

Послано KIRILL(ArcSTU) 19 янв 2007 15:05

replace eof to seekeof

Just read the problem one more time (-)

Послано Dmitry 'Diman_YES' Kovalioff 19 янв 2007 17:44

Re: please look where is my error??

Послано KIRILL(ArcSTU) 19 янв 2007 18:11

KIRILL(ArcSTU) писал(a) 19 января 2007 15:05

replace eof to seekeof

Also compare your answer with sample and find
difference:)

Re: but until giving error

Послано Yogesh 20 янв 2007 22:06

sollamudiyaathuta madaiya,sonki

Re: but until giving error

Послано zzzlll 23 янв 2007 12:09

i don't understand what you say???

Обсуждение задачи 1001. Обратный корень