Постройте алгоритм угадывания числа от 1 до 10. Помогите пожалуйста очень срочно надо!!!

1

Ответы и объяснения

2013-05-20T16:45:06+00:00

var ch,ch1:integer;

begin
ch:=random(10)+1;
writeln('Ugadai vvedi chislo ot 1 do 10');
readln(ch1);
if ((ch1 <10) and (ch1 > 0) ) then
if (ch1=ch)then writeln('Ty ugadal')
else writeln('Ty ne ugadal, chislo = ',ch)
else writeln('Error');

end.