Напишите программу на языке pascal которая будет угадывать число от 1 до 1000 задуманное пользователем за наименьщее число шагов если программа предложила большее число то пользователь нажимает < если программа предложила меньшее число то пользователь нажимает > а если угадала то = тема циклы
udinaaa
3
17.05.2019 15:00
1
Другие вопросы по теме Информатика
myhaylonotochk
09.07.2019 05:20
AnnaGlyuza0436
02.10.2019 20:00
Gatkek
02.10.2019 21:30
dedovu6
02.10.2019 21:30
Sanyapro2002
02.10.2019 21:30
djiner
02.10.2019 21:30
DiankaTokmashova
02.10.2019 21:30
sashaaaa5
02.10.2019 21:30
Оаоагигвшпоа
02.10.2019 21:30
Популярные вопросы
- Соченение на картину мальчишки Ф. Решетникова План 1 Что изображено на картине,...
1 - Списать предложения, расставить запятые, показать границы и союзы, надписать...
3 - Задание N 2 Жак Паганель составил таблицу деления горных породна 3 большие...
3 - Николай Васильевич Гоголь Заколдованное место реальное и фантастическое заполни...
2 - 1)Найдите количество вещества и количество молекул для озона 03 (о-три), если...
2 - №8 Read about six friends. Then write answers to the questions. 1) Mary is...
2 - Сравнение экономики Индии XIX и XX веков....
2 - Валентность атома металла || в составе :...
3 - Напишіть твір-мініатюру на одну з поданих тем:11. «Кобзарі співці вільного...
2 - У дієсловах на -шся вимовляється звук...
2
var min,max,n:integer;
c:string;
Begin
min:=1;
max:=1000;
repeat
n:=(max+min) div 2;
writeln(n);
read(c);
case c of
">": min:=n+1;
"<": max:=n-1;
end
until (c="=");
End.