Granigrinn
6 год назад
Вводится десятичное число.
Написать программу, которая вычесляет количество десятков и единиц в вводимом числе. Программа должна вывести на экран сообщение: "в числе десятков = , в числе единиц = ".
ОТВЕТЫ
Савельевич
Jul 1, 2019
Var
x: integer;
begin
write(Число: );
readln(x);
writeln(В числе десятков=, x div 10, ; единиц=, x mod 10);
end.
x: integer;
begin
write(Число: );
readln(x);
writeln(В числе десятков=, x div 10, ; единиц=, x mod 10);
end.
126
Смежные вопросы:
