Kigaktilar
6 год назад
СРОЧНО СРОЧНО СРОЧНО
ПОЖАЛУЙСТА ПОМОГИТЕ
вводится десятичное число. написать программу, которая вычесляет количество десятков и единиц в вводимом числе. Программа должна вывести на экран сообщение: "в числе десятков = , в числе единиц = ".
ОТВЕТЫ
Владислав
Jul 1, 2019
Var n:integer;
begin
write(n = );
readln(n);
writeln(в числе десятков = ,n mod 100 div 10);
writeln(в числе единиц = , n mod 10);
end.
Пример:
n = 125
в числе десятков = 2
в числе единиц = 5
begin
write(n = );
readln(n);
writeln(в числе десятков = ,n mod 100 div 10);
writeln(в числе единиц = , n mod 10);
end.
Пример:
n = 125
в числе десятков = 2
в числе единиц = 5
124
