СРОЧНО!!!ОЧЕНЬ НАДО!!!ПОЖАЛУЙСТА!!! Найти четвёртую от конца цифру в записи произвольного положительного целого числа х, значение которого вводится с клавиатуры (например, если дано х=25 6985, то получить у=6)
СРОЧНО!!!ОЧЕНЬ НАДО!!!ПОЖАЛУЙСТА!!!
Найти четвёртую от конца цифру в записи произвольного положительного целого числа х, значение которого вводится с клавиатуры (например, если дано х=25 6985, то получить у=6)
Гость
Ответ(ы) на вопрос:
Гостьvar n,k:integer;
begin
write('n=');readln(n);
k:=1;
while (k<4)and(n>9) do
begin n:=n div 10; inc(k); end;
if k=4
then writeln('4-я цифра = ',n mod 10)
else writeln('В числе меньше 4 цифр');
end.
Не нашли ответ?
Похожие вопросы