Натуральное число считается радостным, если оно оканчивается на 25 и является полным квадратом. Число считается полным квадратом, если является квадратом какого-то целого числа. Например, 25,225,625 радостные, а 125,49, 325 - нет. Вам дано число k. Найдите k-е радостное число
Program pr2;
var
k,n: integer;
i:longint;
begin
read (k);
n:=0;
i:=4;
while n<k do begin
i:= i+1;
if sqr(i) mod 100 = 25 then n:= n+1;
end;
write (sqr(i));
end.
Объяснение:
Это Pascal у меня правильно работает