Question

Дописать програму

Составить программу, которая бросать случайные числа из интервала от 10 до 50 пока не выпадет

заданное с клавиатуры число А (10<=A<=50). Указать количество «бросков» до совпадения.


Дописать програму

var

x, count, y:integer;

begin

writeln('Задумайие и введите число X (10<=x<=50)');

readln(x);

y:=

count:=

здесь пропущена строка

begin

y:=random(41)+10;

count:=

writeln('Бросок №',count,': y=',y);

end;

writeln;

writeln('Количество бросков до совпадения ', count)

end

Answer 1

Ответ:

var

   x, count, y:integer;

begin

   writeln('Задумайие и введите число X (10<=x<=50)');

   readln(x);

   y:=0;

   count:=0;

   while x<>y do

   begin

       y:=random(41)+10;

       count:=count+1;

       writeln('Бросок №',count,': y=',y);

   end;

   writeln;

   writeln('Количество бросков до совпадения ', count)

end.