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

вопросник45 вопросник45    2   09.07.2019 05:20    2

Ответы
SallyKromsali3 SallyKromsali3  07.09.2020 07:59
Var
a,b,c,e:integer;
begin
readln(a,b,c);
e:=-5;
while (a<>e) and (b<>e) and (c<>e) do
begin
e:=random(20)+1;
writeln(e);
end;end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика