Определить из каких цифр состоит число цикл repeat

SaharKchayu SaharKchayu    2   16.09.2019 05:20    0

Ответы
sspamit sspamit  07.10.2020 19:15
Var x: integer;
begin
  readln(x);
  repeat
    write(x mod 10);
    write(',');
    x := floor(x / 10);
  until x < 1;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика