Вопрос по информатике:
В программе Паскаль.
Дано натуральное число. Вывести его первую и предпоследнюю цифру (цифры нумеруются справа на лево). Вывести цифру заданным номером k.
Пожаловаться
- 19.03.2018 15:39
- Информатика
- remove_red_eye 4416
- thumb_up 46
Ответы и объяснения 1
Var
A:longint;
k:byte;
Begin
Write('Введите натуральное число: ');ReadLn(A);
Write('k = ');ReadLn(k);
WriteLn('Первая цифра: ',A mod 10);
For k:= 1 to k-1 do
A:=A div 10;
k:=A mod 10;
While A div 10 > 0 do
A:=A div 10;
WriteLn('Последняя цифра: ',A);
WriteLn('Цифра №k: ',k);
End.
Пример работы программы:
Введите натуральное число: 968764513
k = 5
Первая цифра: 3
Последняя цифра: 9
Цифра №k: 6
A:longint;
k:byte;
Begin
Write('Введите натуральное число: ');ReadLn(A);
Write('k = ');ReadLn(k);
WriteLn('Первая цифра: ',A mod 10);
For k:= 1 to k-1 do
A:=A div 10;
k:=A mod 10;
While A div 10 > 0 do
A:=A div 10;
WriteLn('Последняя цифра: ',A);
WriteLn('Цифра №k: ',k);
End.
Пример работы программы:
Введите натуральное число: 968764513
k = 5
Первая цифра: 3
Последняя цифра: 9
Цифра №k: 6
Пожаловаться
- 20.03.2018 06:16
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы