Составьте программы "Угадай число от 1 до 10"
И придумайте похожую задачу, только немного сложней. :)
Сорь за качество.
И придумайте похожую задачу, только немного сложней. :)
Сорь за качество.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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<a then writeln('Число введенное вами меньше загаданного,попробуйте снова')
else if n>a then writeln('Число введенное вами больше загаданного, попробуйте снова');
until n=a;
writeln('Если хотите выйти введите "-1" ');
readln(t);
until t=-1;
readln;
end.