USES CRT; var a,b,c:integer;

begin  clrscr;  randomize; writeln('угадай число от 0 до 100 У ТЕБЯ 8 ПОПЫТОК');

a:=random(100); c:=1;

repeat writeln; writeln;

write(c:2,'попытка   Введите целое число :'); readln(b);

if b>a then writeln('много надо меньше');

if b<a then writeln('мало надо больше');

if b=a then begin

            writeln('верно угадал с ',c,'попытки');             readln;             halt;

            end;

c:=c+1;

until c>8; writeln(a); readln; end.

1)Набрать программы ( выполнить 5-10 раз!)

2) сформулировать задачу!! ( условие выслать мне!)

3) скриншот программы и работы программы на электронную почту ksi_38@bk.ru 

ОСОБЕННО 9А вторая группа!!!!!!!!! ( отсутствие работ это тоже оценка!)