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

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

+1
Ответы (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 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1. В языке PHP создайте генератор случайного числа от 1 до 10. Выведите результат выполнения на экран любым способом. 2. Если полученное случайное число четное, выведите на экран слово "четное", иначе выведите на экран слово "нечетное". 3.
Ответы (1)
Ребят помогите с задачей в Pacal. Натуральное число называется палиндромом, если его запись читается одинаково с начала и с конца (например: 1,22,393). Найти все меньшие 100 натуральные числа, которые при возведении в квадрат дают палиндром.
Ответы (1)
Var day:byte; boy:string; pi:real; begin / / В блок памяти boy запишите Ваше имя / / В переменную day запишите Ваш возраст / / Выведите на экран содержимое переменной boy / / Выведите на середину экрана текст "Меня зовут", а рядом - содержимое
Ответы (1)
Для пяти произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. Если первое, второе и пятое числа отрицательны, то выведите их произведение.
Ответы (1)
Для 4 произвольных чисел, введенные с клавиатуры, выведите на экран соответствующие результаты. если разностьпервых двух чисел превышает четвертое, то выведите все четыре числа без изменения.
Ответы (1)