PASCAL.ABC Улучшить "Угадалку": Пусть программа не говорит горячо, холодно и т.д. Пусть...

Question

PASCAL.ABC Улучшить "Угадалку": Пусть программа не говорит горячо, холодно и т.д. Пусть она говорит "Правее" или "Левее". Вот угадалка: program quess; var a,b:integer; begin a:=random(101); write('b='); readln(b); while (a<>b) do begin writeln('Ne pravilno'); if(abs(a-b)<10) then writeln('gorucho'); if(abs(a-b)<25) and (abs(a-b)>=10) then writeln('teplo'); if(abs(a-b)>=25) then writeln('holodno'); write('b='); readln(b); end; writeln('ygadal'); end.

Answer 1

program quess;

var a,b:integer;

begin

a:=random(101);

write('b=');

readln(b);

while (a<>b) do

begin

writeln('Ne pravilno');

if(a writeln('levee');

if(b

writeln('pravee');

readln(b);

end;

writeln('ygadal');

end.

Comments

Спасибо

Answer 2

program quess;

var a,b:integer;

begin

 a:=random(101);

 write('b=');

 readln(b);

 while (a<>b) do begin

   writeln('Ne pravilno');

   if b

   else writeln('levee');

   write('b=');

   readln(b);

 end;

 writeln('ygadal');

end.