В программе Паскаль. Дано натуральное число. Вывести его первую и предпоследнюю цифру (цифры нумеруются справа на лево). Вывести цифру заданным номером k.
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
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
