1. Информатика
  2. сколько лет бабушке?

"сколько лет бабушке? "компьютер загадывает целое число от 1 до 100. пользователь вводит с клавиатуры некоторое число и получает один из ответов: "мое чило меньше","мое число больше","вы угадали".процесс повторяется до тех пор пока не будет угадано число. на паскале сделать

ninakamenskix2000 ninakamenskix2000    2   19.05.2019 08:30    0

Ответы
бобгороха бобгороха  12.06.2020 12:52

var
a,answer:integer;
begin
randomize;
a:=random(101);
while (a<>answer) do
begin
readln (answer);
if (answer>a) then writeln ('Загаданное число меньше') else writeln ('Загаданное число больше');
end;
writeln ('Вы угадали число!');
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
annakara0491 annakara0491  02.06.2019 13:10
Введите два любых числа и найдите их произведение,используя только операцию сложения....
veronikageletii veronikageletii  02.06.2019 13:10
Написать программу в pascal полностью всю от program до end. : определить количество положительных элементов в двухмерном массиве 5х4. если программа будет написана...
СвежийГусь СвежийГусь  11.04.2021 23:32
Написать программу в Паскаль. Определить среднее арифметическое всех отрицательных и четных чисел....
slunyavchik slunyavchik  11.04.2021 23:23
Блин (в инете нет сразу говорю)Pascal программа​...
kuanyshqz kuanyshqz  29.10.2019 11:43
Внекотором каталоге хранился файл ландыш.doc. в этом каталоге создали подкотолог май и файл ландыш.doc переместить в созданный подкаталог. полное имя файла стало d:...
Плаоцтвтч Плаоцтвтч  29.10.2019 11:52
1. дано предложение. определить: a) сколько раз буква е встречается в предложении? b) сколько раз буква и встречается в предложении? c) каких букв больше и на сколько?...
tanyagorelik tanyagorelik  29.10.2019 11:53
Дано натуральное число п. вычислить 2(2+1)(2+2)(2++n).№3 даны действительное число а, натуральное число п. вычислитьа*(a+1)*(a+2)*(a+3) **(a+n). составить блок схему...
4iterok211 4iterok211  29.10.2019 11:56
Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 4. программа получает на вход количество чисел в последовательности,...
averinael2013 averinael2013  24.04.2020 13:12
В файле input.txt записана строка. Посчитать количество слов в этой строке,начинающихся на «в» и вывести результат в другой файл. Если таких слов нет, товывести «NO»...
kristinka140320 kristinka140320  24.04.2020 13:11
Какая категория интересов субъектов информационных отношений была нарушена в результате хакерской атаки на серверы buy 7 мая 2000 года​...

Популярные вопросы