Научите Анфису информировать вас о новых сообщениях, если их не больше двадцати. Анфиса должна напечатать двадцать одно сообщение подряд: У вас нет новых сообщений У вас 1 новое сообщение ... У вас 20 новых сообщений Примените логический оператор or и/или and и множественное ветвление с elif, чтобы Анфиса выражалась грамотно. К примеру: «У вас 1 новое сообщение», «У вас 4 новых сообщения», «У вас 11 новых сообщений».

1.найти разность показаний счетчика на конец месяца и на начало месяца.

2.умножить на цену одного квт/часа

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.

я так понимаю это раздел 3 .10

про животных в каждом  множестве ?

множества:

животных на рисунке-10

птиц -5

животных, кот.умеют летать-6

птиц которые умеют летать-3

птиц которые не умеют летать -2

животных,которые не летают и не птицы-2

слева на рисунке :

в круге вне овала- пингвин , страус

на пересечении круга и овала -сова, попугай лебедь

в овале вне круга - шмель стрекоза, летучая мышь

в квадрате за пределами круга и  овала -змея . белка