Четырехзначное число, у которого первая цифра равно второй а третья четвертой, является квадратом двузначного числа. Найти эти числа. (паскаль, циклы)

Question

Информатика

Викта

8 сентября, 06:32

Четырехзначное число, у которого первая цифра равно второй а третья четвертой, является квадратом двузначного числа. Найти эти числа. (паскаль, циклы)

+3

Ответы (1)

Знаете ответ?

Миля · Answer 1

Uses crt;

var i, j:integer;

begin

for i:=1000 to 9999 do

for j:=10 to 99 do

if ((i div 1000) = (i div 100) mod 10)

and ((i div 10) mod 10=i mod 10)

and (i=j*j) then writeln (i) ;

end.