Выведите на экран все двузначные числа, которые при возведении в квадрат дают палиндром.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Сариниан
program n1;
var i,k,x,y:integer;
begin
for i:=10 to 99 do begin
k:=i*i;
if (k div 1000=0) then
if (k div 100=k mod 10) then writeln(i)
else begin
x:=k div 100;
y:=k mod 100;
if (x mod 10=y div 10) and (x div 10=y mod 10) then writeln(i);
end;
end;
end.
Ответ: 11, 22, 26
var i,k,x,y:integer;
begin
for i:=10 to 99 do begin
k:=i*i;
if (k div 1000=0) then
if (k div 100=k mod 10) then writeln(i)
else begin
x:=k div 100;
y:=k mod 100;
if (x mod 10=y div 10) and (x div 10=y mod 10) then writeln(i);
end;
end;
end.
Ответ: 11, 22, 26
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
