
Игорь
5 год назад
написать программу для нахождения предпоследней цифры любого числа Пожалуйста посчитайте ПЛИЗ НЕ ШАРЮ В ЭТОМ
ОТВЕТЫ

Артемий
Oct 24, 2020
var a,b:integer;
begin
write('a (>0) = ');
readln(a);
b:=a mod 100 div 10;
writeln('Предпоследняя цифра = ',b);
end.
Пример:
a (>0) = 180653
Предпоследняя цифра = 5
begin
write('a (>0) = ');
readln(a);
b:=a mod 100 div 10;
writeln('Предпоследняя цифра = ',b);
end.
Пример:
a (>0) = 180653
Предпоследняя цифра = 5
510
Смежные вопросы: