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

Question

Лада

9 августа, 18:18

+5

Ответы (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.