Моральні цінності в творах А. Ліндгрен

134 удара, это уже нагрузка средней интенсивности для меня

Конституция провозгласила Италию демократической республикой.

Законодательная       Исполнительная      Судебная

Сенат                         Президент                  Суды
Палата                       Правительство
депутатов

Ответ: «Хонда» синего цвета , «Мерседес» – жёлтого, «Ауди» –красного.
Решение. Поскольку ни одна машина не пришла к финишу той же по счету, что стартовала, то «Ауди», прибывшая последней, не может быть синей. Но по условию она не может быть и жёлтой. Значит, эта машина красного цвета. Тогда «Хонда», пришедшая первой не может быть жёлтой, поскольку первой стартовала жёлтая машина. Следовательно, она – синяя. Оставшийся «Мерседес» должен быть жёлтым.

uses crt;
var n:longint;
    c,k,mx:byte;
begin
clrscr;
write('Введите натуральное число n=');
readln(n);
mx:=0;
k:=1;
while n>0 do
 begin
  c:=n mod 10;
  if c>mx then
   begin
    mx:=c;
    k:=1;
   end
  else if c=mx then k:=k+1;
  n:=n div 10;
 end;
write('Максимальная цифра ',mx,' количесиво=',k);
readln
end.