07.09.2009, 17:58
|
|
Познающий
Регистрация: 23.08.2009
Сообщений: 47
Провел на форуме:
63389
Репутация:
1
|
|
Dosia
Спасибо.... но чтобы правильно заработало пришлось довести до такого вида:
var
R:integer;
begin
readln(R);
R:= R + 1 ;
writeln(R*R+(R-1)*(R-1));
end.
Потому что у вас значение радиуса смещалось на единицу. Но решение все равно не правильное(( Проходит только 3 теста из 20 - 15%  Помогите, кто нибудь!!!!
|
|
|