Циклы программа не сложная ПОМ*ОГИТЕ.

@Паскаль_чайник · Регистрация: 15.04.2010

Author24 — интернет-сервис помощи студентам

Написать программу ,которая загадывает случайное числа из 100.Пользователю предлагается отгодать его.Даётся 8 попыток,для каждой попытки программа выводит уточняющее сообщение
<Больше> <Меньше> или <Вы угадали!>.

Борланд Паскаль.

@nVz · 15.04.2010, 17:42

вот написал, держи

Pascal

program gg;
uses crt;
var
   a,b,c:integer;
begin
   clrscr;
   randomize;
   a:=8;
    c:=random(99)+1;
   repeat
   writeln('vvedite chislo');
   readln(b);
   if b<>c then begin
   a:=a-1;
   if c>b then writeln('bolshe!') else writeln('menshe!');
   end else
   begin
   if b=c then writeln('Ugadali');
   break;
   end;
   until a=0;
   readln;
   end.

@DeLuxe · 15.04.2010, 17:44

Pascal

program tmp;
uses crt;
var a,b,n:integer;
flag:boolean;
begin
clrscr;
randomize;
a:=random(101);
flag:=false;
n:=8;
repeat
dec(n);
write('Vashe chislo:'); readln(b);
if a=b then begin
            write('Vi ugadali!');
            flag:=true;
            end
else if a>b then write('bolshe')
     else write('menshe');
writeln;
until (flag) or (n=0);
readkey;
end.

@Паскаль_чайник · 15.04.2010, 18:01 **[ТС]**

Спасибо ВСЕМ.

@Паскаль_чайник 0 / 0 / 0 Регистрация: 15.04.2010 Сообщений: 4
		1
	Циклы программа не сложная ПОМОГИТЕ. 15.04.2010, 17:22. Показов* 943. Ответов 3 Метки нет (Все метки) Написать программу ,которая загадывает случайное числа из 100.Пользователю предлагается отгодать его.Даётся 8 попыток,для каждой попытки программа выводит уточняющее сообщение <Больше> <Меньше> или <Вы угадали!>. Борланд Паскаль. 0

@Паскаль_чайник 0 / 0 / 0 Регистрация: 15.04.2010 Сообщений: 4
	15.04.2010, 18:01 [ТС]	4
	Спасибо ВСЕМ. 0