ответ: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 часов мы чокаемся и дарим подарки.
П
Объяснение:
