Паскаль, Выводить на экран случайные числа в диапазоне от 0 до 20 до тех пор, пока очередное случайное число не будет равно одному из трех чисел А, В, С.

Question

Никитка

14 июля, 12:48

+3

Ответы (1)

Знаете ответ на вопрос?

Гали · Answer 1

Var

a, b, c, e:integer;

begin

readln (a, b, c) ;

e:=-5;

while (ae) and (be) and (ce) do

begin

e:=random (20) + 1;

writeln (e) ;

end; end.