Вывести на экран все цифры, не входящие в десятичную запись натурального числа N - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Вывести на экран все цифры, не входящие в десятичную запись натурального числа N. Помогите пожалуйста с программой

Решение задачи: «Вывести на экран все цифры, не входящие в десятичную запись натурального числа N»

textual
Листинг программы
  1. Var n:longint;
  2. i:integer;
  3. s:set of '0'..'9';
  4. a:string;
  5. c:char;
  6. BEGIN
  7. s:=[];
  8. Readln (n);
  9. Str (n, a);
  10. For i:=1 to Length (a) do
  11. s:=s+[a[i]];
  12. For c:='0' to '9' do
  13. IF not (c in s) THEN Write (c,' ');
  14. END.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.333 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы