Делим 9 монет на 3 кучи по 3 монеты
берем 2 кучи по 3 монеты и взвешиваем
если они равные,то монета в третьей кучке
Берем 3 кучу и делим её на еще 3 монеты
в итоге берем 2 монеты и взвешиваем,если они равные,то фальшивая 3 монета
Понял?
<span>program</span> xjkhjh;
<span>uses</span> crt;<span>
Var</span> T<span>:</span><span>string</span>;
i<span>,</span> summ<span>:</span><span>byte</span>;
<span>Begin</span>
<span>Writeln</span><span>(</span><span>'Введи текст: '</span><span>)</span>;
<span>Readln</span><span>(</span>T<span>)</span>;
summ<span>:=</span><span>0</span>;
<span>For</span> i<span>:=</span><span>1</span><span>to</span> length<span>(</span>T<span>)</span><span>do</span>
<span>If</span> T<span>[</span>i<span>]</span><span>in</span><span>[</span><span>'y'</span><span>,</span><span>'x'</span><span>]</span><span>then</span> inc<span>(</span>summ<span>)</span>;
<span>Writeln</span><span>(</span><span>'Сумма = '</span><span>,</span>summ<span>)</span>;
<span>End</span>.
Ответ:14 часов пройдёт до звонка будильника.
1) одна из главных составляющих компьютера-процессор
2) Предмет системы вывода информации-монитор
3) одиз из компьютерных языков-паскаль ну или бейсик(бэйсик)
4) Один из основателей майкрософт-Гейтс
5) Предмет для ввода информации-Планшет(ну на котором рисуют пишут и т.п.) можно написать мышка или клавиатура
6) Программа софт защищающая компьютер от вредоносных программ-антивирус
Uses crt;
var a,b: Integer;
Begin
Write('Введите целое число: ');
Read a;
While a>0 do
Begin
b:=b+a mod 10;
a:=a div 10;
End;
Writeln('Сумма цифр введённого числа равна ', b);
End.
