Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
3 мая 2023 15:05
294
Написать программу(Pascal), которая отыскивает все числа N, N<1000, которые яв- ляются квадратами-палиндромами. (Пример: 11^2=121,262^2=69696).
1
ответ
Вот решение задачи на Pascal:
```
program PalindromeSquares;
var
n, i, reverse: integer;
begin
for n := 1 to 999 do
begin
i := 1;
while i * i < n do
Inc(i);
if i * i = n then
begin
reverse := 0;
i := n;
while i > 0 do
begin
reverse := reverse * 10 + i mod 10;
i := i div 10;
end;
if reverse = n then
writeln(n);
end;
end;
end.
```
Программа перебирает все числа от 1 до 999 и проверяет, является ли каждое из них квадратом целого числа. Если да, то программа переворачивает это число и проверяет, является ли оно палиндромом. Если да, то программа выводит это число на экран.
```
program PalindromeSquares;
var
n, i, reverse: integer;
begin
for n := 1 to 999 do
begin
i := 1;
while i * i < n do
Inc(i);
if i * i = n then
begin
reverse := 0;
i := n;
while i > 0 do
begin
reverse := reverse * 10 + i mod 10;
i := i div 10;
end;
if reverse = n then
writeln(n);
end;
end;
end.
```
Программа перебирает все числа от 1 до 999 и проверяет, является ли каждое из них квадратом целого числа. Если да, то программа переворачивает это число и проверяет, является ли оно палиндромом. Если да, то программа выводит это число на экран.
1
·
Хороший ответ
3 мая 2023 15:06
Остались вопросы?
Еще вопросы по категории Информатика
Сдать решение задачи 6-Странное устройство Полный балл: 100 Ограничение времени: 1 с Ограничение памяти: 512M Ограничение размера стека: 64M Задач...
Помогите пожалуйста:) 1.Определите значение переменной f после выполнения фрагмента алгоритма: f:=1 нц для i от 1 до 5 f:=f*i кц 2.Определи...
Выполните операцию сложения над двоичными числами a) 101010+1101 b) 1010+1010 c) 10101+111 выполните операцию умножения над двоичными числами a) 1010...
Даю 22 балла Какое МАКСИМАЛЬНОЕ количество вопросов достаточно задать вашему собеседнику, чтобы точно определить день и месяц его рождения? Сделать по...
Дан фрагмент таблицы истинности выражения F: Каким выражением может быть F? напишите подробно как решать...