Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ
var x: integer;
begin
  readln(x);
  repeat
    write(x mod 10);
    write(',');
    x := floor(x / 10);
  until x < 1;
end.
277
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам