ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА!!!!!!!!ЗАРАНИЕ СПАСИБО

0 голосов
21 просмотров

ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА!!!!!!!!ЗАРАНИЕ СПАСИБО


image

Информатика (654k баллов) | 21 просмотров
Дано ответов: 2
0 голосов
Правильный ответ

var

 a, b: Integer;

begin

 Randomize;

 a := Random (1000) + 1;

 while a <> b do begin

   Write ('Введи число!!!');

   ReadLn (b);

   if b > a then

     WriteLn ('Перебор!!!')

   else if b < a then

     WriteLn ('Маловато будет...')

 end;

 WriteLn ('Молодец! Угадал!');

 ReadLn;

end.

(6.4k баллов)
0 голосов

Program n_1;

var a, b: integer;

begin

 randomize;

 a:=random (1000) + 1;

 while a <> b do begin

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

   readln (b);

   if b > a then writeln ('Перебор!!!')

   else if b < a then writeln ('Маловато будет...')

 end;

 writeln ('Молодец! Угадал!');

 readln();

end.

(3.5k баллов)