Вопрос по информатике:
Дано число N.Найти количество чисел в интервале от 1 до N ,являющихся перевёртышами-при выписывании их цифр в обратном порядке получается тоже самое число.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 18.05.2015 05:31
- Информатика
- remove_red_eye 13195
- thumb_up 31
Ответы и объяснения 1
N,A,B:longint;
k:integer;
Begin
k:=0;
Write('N = ');ReadLn(N);
For N:= 1 to N do
Begin
A:=N;
B:=0;
While A > 0 do
Begin
B:=B*10+(A mod 10);
A:=A div 10
End;
if B=N then k:=k+1
End;
WriteLn('Искосое количество: ',k)
End.
- 19.05.2015 17:00
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.