Наверное тег < р> текст </р>. Больше я нечево тут не заметил
А тогда свойства justify будет виравнивать текс по всей ширине
Банальный пример... человек
Может: пить, есть, учиться, решать задачи сам, думать головой, работать, смотреть фильм, играть и т.д................
Если брать каждую цифру не более 1 раза (в самом 3-х значном числе), тогда:
1) чисел, начинающихся с 1 будет 6; с 3-тоже 6, с 5 - 6, с 7 - 6
2) 6*4=24. 24 числа
Var
d: array [1..6] of integer;
i:integer;
begin
for i:=1 to 6 do
read(d[i]);
for i:=1 to 6 do begin
if d[i]>0 then
write(d[i],' ');
end;
end.
Для решения этой задачи будут необходимы весы с двумя чашами.
Раскладываем 9 монет на 3 стопки по 3 монеты и начинаем взвешивание.
Алгоритм определения фальшивой монеты состоит из 2 шагов:
1. Взвешиваем любые 2 стопки по 3 монеты. Если весы в равновесии - то фальшивая монета в оставшейся стопке, если какая-то чаша перевешивает, значит фальшивая монета в той стопке, которая легче.
2. Из стопки из 3 монет, в той которая находится фальшивая, берем любые 2 и взвешиваем. Если весы в равновесии - фальшивая та, которая осталась, если одна из чаш перевешивает, значит фальшивая та, которая легче.