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

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

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

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

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

@nVz · 15.04.2010, 17:42

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Паскаль_чайник 0 / 0 / 0 Регистрация: 15.04.2010 Сообщений: 4

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

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