Презентация "Информационные ресурсы"

Программы на языке Паскаль. Циклы

 Составить программу "Угадай число"

Program угадай число;

Var

      x,y: integer;

begin

      randomize;

      x:=random(101);

      while x<>y do 

      begin

           write(’Введи число  ’);

           readln(y);

           if y>x then

               writeln(’Больше’)

          else

               if b<a then

                     writeln(’Меньше’)

              else

                     writeln(’Угадал! ’);

         end;

readln

end.