Var i: integer;
begin
for i:=1 to 9 do
writeln('7 * ', i, ' = ', 7 * i)
<span>end.</span>
бита
байт, т.к. 8 бит=1 байт
Кбайт, т.к. 1 Кбайт=1024 байт
Для решения этой задачи будут необходимы весы с двумя чашами.
Раскладываем 9 монет на 3 стопки по 3 монеты и начинаем взвешивание.
Алгоритм определения фальшивой монеты состоит из 2 шагов:
1. Взвешиваем любые 2 стопки по 3 монеты. Если весы в равновесии - то фальшивая монета в оставшейся стопке, если какая-то чаша перевешивает, значит фальшивая монета в той стопке, которая легче.
2. Из стопки из 3 монет, в той которая находится фальшивая, берем любые 2 и взвешиваем. Если весы в равновесии - фальшивая та, которая осталась, если одна из чаш перевешивает, значит фальшивая та, которая легче.
Var k,i:integer;
begin
write ('Введите количество повторений: ');
readln (k);
for i:=1 to k do
writeln ('ПРИВЕТ!!!')
end.