Question

Помогите с заданием пожалуйста (Паскаль). Дано трехзначное число. Найти: а) число единиц в нем б) число десятков в нем Заранее спасибо.

Answer 1

var

 x:integer;

begin

 read(x);

 write('Едениц: ', x mod 10, ' Десятков: ', x div 10 mod 10);

end.

Answer 2

Я могу помочь вам с заданием по Паскалю. Дано трехзначное число. Найти: а) число единиц в нем б) число десятков в нем.

Для решения этой задачи вам нужно знать, как использовать операции деления и остатка от деления. Деление целых чисел в Паскале обозначается символом div, а остаток от деления - символом mod. Например, 17 div 5 равно 3, а 17 mod 5 равно 2.

Пусть дано трехзначное число n. Тогда:

а) число единиц в нем равно n mod 10. Это потому, что остаток от деления n на 10 дает последнюю цифру n. Например, если n = 123, то n mod 10 равно 3.

б) число десятков в нем равно (n div 10) mod 10. Это потому, что сначала мы делим n на 10, чтобы отбросить последнюю цифру, а затем берем остаток от деления на 10, чтобы получить предпоследнюю цифру. Например, если n = 123, то (n div 10) mod 10 равно 2.

Вот пример программы на Паскале, которая решает эту задачу:

program Project1; var n: integer; begin writeln('Введите трехзначное число:'); readln(n); writeln('Число единиц в нем:', n mod 10); writeln('Число десятков в нем:', (n div 10) mod 10); end.

Надеюсь, это поможет вам понять решение. Удачи!