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