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

Question

Информатика

Гала

25 июня, 23:46

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

+5

Ответы (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.