Задано число. определить, какие цифры не входят в это число. решить в паскале с множеств.

190

249

Посмотреть ответы 2

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

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

max50chepil

Информатика

4,4(76 оценок)

uses crt; vara, b, i : real ; beginclrscr; write('курс $= '); readln (a); write ('сумма в рублях = '); readln (b); i: = b/a; writeln (i: 6: 2); readkey; end.