Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Пожалуйста помогите решить задачу по Pascal

Автор: zirogo 22.5.2006, 14:28

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

Автор: armageddon 22.5.2006, 16:52

я чего-то туплю, приведи пример такого числа

Автор: zirogo 22.5.2006, 18:38

я не могу привести пример я не знаю!

Автор: Void 22.5.2006, 18:45

Код

program Digits;

var i, n: Integer;
    digits: set of Byte;

begin
    digits := [0..9];
    Write('Enter integer number: ');
    Read(n);
    while n <> 0 do
    begin
        digits := digits - [n mod 10];
        n := n div 10
    end;
    for i := 0 to 9 do
        if i in digits then
            Write(i)
end.

Автор: zirogo 22.5.2006, 19:04

большое спасибо!!!

Автор: skyboy 22.5.2006, 19:08

Код


usrs CRT;
var number:longint,i;
      sym:char;
      flag:array[0..9] of boolean;
begin
 for i:=0 to 9 do flag[i]:= false;
 writeln('Введите число!');
sym:= readkey;
while (sym>#47) AND (sym<#58) do
 begin
  flag[byte(sym) - 48]:= true;
  sym:= readkey;
 end;
writeln('Вы не использовали следующие цифры:');
for i:= 0 to 9 do
 if not(flag[i])
  then writeln(i);
end.

Автор: zirogo 22.5.2006, 19:40

спасибо!!!

Автор: nikitao 23.5.2006, 20:20

[Б]армагеддон[/Б], задание озночает ,что если пользователь ввел число 239 , то должны появиться
0 1 4 5 6 7 8 smile