Вопрос по информатике:
3. Найти разность пятизначного числа и числа, записанного этими же цифрами в обратном порядке
- 26.09.2017 05:12
- Информатика
- remove_red_eye 14142
- thumb_up 8
Ответы и объяснения 1
Var rez, error, x: integer;
t, t2: string;
begin
write('Введите пятизначное число: ');
readln(t);
val(t, x, error);if ( x = 100000 ) then writeln('Число не пятизначное!')
else
begin
t2 := IntToStr(x);
t2 := t2[5] + t2[4] + t2[3] + t2[2] + t2[1];
val(t2,rez,error);
rez := x - rez;
writeln('Разность чисел ', t, ' и ', t2, ' = ', rez);
end;
end.
- 27.09.2017 14:23
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.