Котик загадывает случайное число от 1 до 10. это число записано в переменной. котик тебя спрашивает: какое число я загадал? а затем сравнивает твой ответ с числом, которое загадал. если твой ответ равен числу, то ты выиграл. если число больше ответа, то котик говорит: “мое число больше! ” если число меньше ответа, то котик говорит: ”мое число меньше! ” всего дается 3 попытки, чтобы угадать число! для этого используй еще одну переменную попытки. попытки уменьшаются, когда ты ввел неправильное число.

var a,b,k:integer;

begin

b:=random(10)+1;

WriteLn('Какое число я загадал?');

k:=3;

repeat

Write('У тебя ',k,' попытки(-а). Введи число: ');

ReadLn(a);

if a>b then WriteLn('Мое число меньше!')else

if a<b then WriteLn('Мое число больше!')else  

if a=b then

begin

WriteLn('Молодец! Угадал!');

k:=0;

end;

k:=k-1

until k<=0;

if k=0 then WriteLn('Проиграл!');

end.

Сыртқы жад:

Сыртқы жад (СЕСҚ) программалар мен мәлiметтердi ұзақ уақыт бойы сақтауға арналған, оның құрамының тұтастығы компьютердiң қосылған немесе қосылмағандығына байланысты емес. СЕСҚ-нан процессорға немесе керiсiнше ақпараттың айналуы шамамен келесi тiзбек бойынша жүредi:

Сыртқа жадтың құрамына мыналар кiредi:

- қатты магниттiк дискiдегi жинақтағыштар;

- иiлгiш магниттiк дискiдегi жинақтағыштар;

- компакт-дисктердегi жинақтағыштар;

- магниттiк-оптикалық компакт-дискiдегi жинақтағыштар;

-магниттiк ленталардағы (стримерлер) жинақтағыштар және т.б.

Объяснение:

Элементарно!
1) Разбиваем 27 монет на 3 кучки по 9 монет. Сравниваем 2 кучки.
Какая легче - в той и фальшивая монета. Если они равны, то фальшивая в третьей кучке, которую не взвешивали.
Получилась кучка из 9 монет, одна фальшивая. Осталось 2 взвешивания.
2) Точно также разбиваем 9 монет на 3 по 3 монеты и сравниваем две.
Какая легче - в той и фальшивая монета. Если они равны, то фальшивая в третьей кучке, которую не взвешивали.
Получилась кучка из 3 монет, одна фальшивая. Осталось 1 взвешивание.
3) Сравниваем 2 монеты. Какая легче - та и фальшивая.
Если они равны, то фальшивая третья, которую не взвешивали.