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.

program quess;

var a,b:integer;

begin

a:=random(101);

write('b=');

readln(b);

while (a<>b) do

begin

writeln('Ne pravilno');

if(a<b) then

writeln('levee');

if(b<a) then

writeln('pravee');

readln(b);

end;

writeln('ygadal');

end.

program quess;

var a,b:integer;

begin

 a:=random(101);

 write('b=');

 readln(b);

 while (a<>b) do begin

   writeln('Ne pravilno');

   if b<a then writeln('pravee')

   else writeln('levee');

   write('b=');

   readln(b);

 end;

 writeln('ygadal');

end.