Вопрос по информатике:
Среди 5 значных числео найдите, симметричные числа.
Распишите решение подробно, пожалуйста.
- 03.06.2018 12:18
- Информатика
- remove_red_eye 19240
- thumb_up 28
Ответы и объяснения 1
var
a: integer;
b: byte;
c: string;
begin
for b := 1 to 5 do
begin
readln(a);
c := String.Empty;
foreach ch: char in inttostr(a) do //Переводим в строку и переворачиваем её
c := ch + c;
if (c = IntToStr(a)) then //Сравниваем исходную "строку-число" и перевёрнутую
writeln('Число ', a, ' симметрично!');
end;
end.
- 04.06.2018 11:50
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.