Решите тест по английскому.​

ответ:var

   a, b, sum, i: LongInt;

begin

   Write('a='); ReadLn(a);

   repeat

       Write('b='); ReadLn(b);

   until (b > a);

   sum := 0;

   for i := a to b do

       if (Not Odd(i))

       then

           Inc(sum, i);

   WriteLn('sum=', sum);

   sum := 0; i := a;

   if (Odd(a))

   then

       Inc(i);

   while (i <= b) do

   begin

       Inc(sum, i);

       Inc(i, 2);

   end;

   WriteLn('sum2=', sum);

   sum := 0; i := a;

   if (Odd(a))

   then

       Inc(i);

   repeat

       Inc(sum, i);

       Inc(i, 2);

   until (i > b);

   WriteLn('sum3=', sum);

end.

Объяснение:

ответ:My favorite holiday is a New Year.I like this holiday because I recieve presents.I celebrate this holiday with my family.We decorate the flat and a New Year tree.We cook different dishes.Then we visit friends and relatives. We sit at the table and watch TV.After 0.00 o'clock we clink glasses and give presents.

Перевод:

Мой любимый праздник Новый Год.Я люблю этот праздник потому что получаю подарки.Я праздную этот праздник со своей семьей. Мы украшаем квартиру и Рождественскую ёлку.Мы готовим разные блюда.После мы приглашаем друзей и родственников.Мы сидим за столом и смотрим телевизор. После 0.00 часов мы чокаемся и дарим подарки.

П

Объяснение: