ДАЮ 20 БАЛЛОВ в трехзначном числе нужно узнать последнюю третюю цифру этого числа, вторую...

Question

ДАЮ 20 БАЛЛОВ в трехзначном числе нужно узнать последнюю третюю цифру этого числа, вторую и первую(паскаль)

Answer 1

Var a:integer;
begin
write('a = ');
readln(a);
writeln('1-я цифра: ',abs(a) div 100);
writeln('2-я цифра: ',abs(a) div 10 mod 10);
writeln('3-я цифра: ',abs(a) mod 10);
end.

Пример:
a = 724
1-я цифра: 7
2-я цифра: 2
3-я цифра: 4

Comments

что значит abc?

---

Функция abs() определяет модуль числа. Т.е. программа может работать и с отрицательными числами (-724, например). Если числа натуральные, то abs можно убрать.

---

спасибо большое

---

Пожалуйста.