Ответы на вопрос:
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
Популярно: Информатика
-
Ринацой06.11.2022 08:03
-
laxier08.01.2020 09:14
-
miniloza200530.11.2022 17:52
-
kristinaFro19.11.2020 19:37
-
Викусик18321.08.2022 22:18
-
dimasikmll14.12.2020 21:48
-
Тарана11лет945607.03.2020 18:07
-
elichev311.07.2022 06:41
-
Julianne1125.10.2020 22:51
-
arefevaz199512.09.2021 11:11