Задать вопрос
29 августа, 15:49

Выведите на экран все двузначные числа, которые при возведении в квадрат дают палиндром. Pascal Abc

+2
Ответы (1)
  1. 29 августа, 18:48
    0
    Var x, a:integer;

    begin

    x:=10;

    while (x<100) do

    begin

    a:=x*x;

    if (a<999) then

    begin

    if (((a mod 10) * 100 + ((a mod 100) div 10) * 10 + (a div 100)) = a) then

    writeln (x) ;

    end

    else

    begin

    if (((a mod 10) * 1000 + ((a mod 100) div 10) * 100 + ((a mod 1000) div 100) * 10 + (a div 100)) = a) then

    writeln (x) ;

    end;

    x:=x+1;

    end;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Выведите на экран все двузначные числа, которые при возведении в квадрат дают палиндром. Pascal Abc ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы