Предмет: Информатика,
автор: Котик2191
В программе Паскаль.
Дано натуральное число. Вывести его первую и предпоследнюю цифру (цифры нумеруются справа на лево). Вывести цифру заданным номером k.
Ответы
Автор ответа:
0
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
Похожие вопросы
Предмет: Русский язык,
автор: nashasemya1234567890
Предмет: Алгебра,
автор: Аноним
Предмет: Литература,
автор: Nan701
Предмет: История,
автор: mVeronovereva