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(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.
More Questions From This User See All
Answers & Comments
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.