В случайном порядке вводятся числа от 0 до 36. Написать программу, которая после 100 введений выводит числа, которые ни разу не вводились

Категория: Delphi/Pascal
2011-08-22 23:03:45
code: #pascal
  1. var
  2.   i : Integer;
  3.   inputDig : byte;
  4.   WasInput : set of byte;
  5.   IsNil : boolean;
  6. begin
  7.   i := 0;
  8.   wasInput := [];
  9.   repeat
  10.     write(i+1,'-значение');
  11.     read(InputDig);
  12.     if InputDig > 36 then
  13.  
  14.     else begin
  15.       wasInput := wasInput + [inputDig];
  16.       inc(i)
  17.       end;
  18.   until i = 100;
  19.   writeln;
  20.   isNil := true;
  21.   for i := 0 to 36 do
  22.     if not( I in wasInput) then begin
  23.       write(i:3);
  24.       isNil := false
  25.       end;
  26.      
  27.   if IsNil then
  28.     Write('введены все значения');
  29. end.
Поделиться:

Похожие статьи:

теги: студенты, консольное приложение, новички