Регистрация
legoman1858
11.12.2021 03:07
Информатика
Есть ответ 👍

help
только с Дано и Решение

269
302
Посмотреть ответы 1

Ответы на вопрос:

lolik22888
lolik22888
4,6(14 оценок)
Var a,i: integer; mn: set of 0..9; begin write('a = '); readln(a); mn: =[]; while a> 0 do   begin   mn: =mn+[a mod 10];   a: =a div 10;   end; writeln('в числе нет следующих цифр: '); for i: =0 to 9 do   if not(i in mn) then write(i: 2); writeln; end. пример: a = 1356 в числе нет следующих цифр:   0 2 4 7 8 9

Популярно: Информатика