Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.