Дано 3-х значное число 121,разбить его на три числа 1,2,1
Дано 3-х значное число 121,разбить его на три числа 1,2,1
Гость
Ответ(ы) на вопрос:
Гостьvar
a, b, c, n, d: integer;
begin
write('Введите трехзначное число: ');
readln(n);
a := n div 100;
d := n mod 100;
b := d div 10;
c := d mod 10;
writeln(n, '=', a, ',', b, ',', c)
end.
Тестовое решение:
Введите трехзначное число: 121
121=1,2,1
Не нашли ответ?
Похожие вопросы