Вопрос по информатике:
Вкладені цикли (Pascal)
В текстовому файлі change.txt зберігається натуральне число N (N менше 2000000). Поміняти місцями першу та останню цифри числа.
- 10.08.2018 19:47
- Информатика
- remove_red_eye 19553
- thumb_up 44
Ответы и объяснения 1
Var N,P:integer; f:text;
Begin
Assign(f,'change.txt');
Reset(f);
Readln(f,N);
P:=1;
while P*10 < N do P:=P*10;
N:=N div P + (N mod P div 10) * 10 + (N mod 10) * P;
Writeln(N);
Close(f);
End.
- 11.08.2018 19:52
- thumb_up 29
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.