Составьте программы "Угадай число от 1 до 10" И придумайте похожую задачу, только немного сложней. :) Сорь за качество.
Числа загадываются от 1 до 10; с выходом и что делать вроде все понятно и так будет uses crt; var a,p,n,t:integer; begin clrscr; p:=0; repeat a:=random(10); repeat readln(n); p:=p+1; if n=a then begin writeln('Вы угадали с ',p,' раза!'); p:=0; writeln('Поробуйте снова!'); readln; clrscr; end else if n else if n>a then writeln('Число введенное вами больше загаданного, попробуйте снова'); until n=a; writeln('Если хотите выйти введите "-1" '); readln(t); until t=-1; readln; end.
это все одна задача, в этой задаче выполнены все условия на фото
