Написать программу! найти сумму чётных чисел в интервале от а до в ( а и в - натуральные числа, а< в).

Uses crt;   var a, b, temp, i, s: integer;   begin   clrscr;   write (' a = ');     readln(a);   write (' b = ');     readln(b);   s: =0;   i: =a;   while i< =b do     begin         if (i mod 2 = 0) then s: =s+i;         i: =i+1;     end;   writeln(' s = ', s);   readln;   end.

Var a,b,i,sum: integer;   begin  write ('введите границы интервала:   '); read (a,b);   for i: = a to b do  if i mod 2 = 0 then sum: =sum + i; writeln ('сумма четных чисел в интервале от а до б  =  ',sum); end.

х+54=х+у

х-х+54=у

у=54(ор)-во 2-ой корзине

х=54+38=92(ор)- в 1-ой корзине

92-27=65(ор)- в 3-ей корзине.

 

86 - 8 = 78 любят компьютерные игры

78 - 62 = 16 человек любят только квесты

78 - 54 = 24 человек любит только симуляторы

54 - 16 = 38 человек любят и квесты и симуляторы.

ответ. 38 человек любят и квесты и симуляторы.

 

круги эйлера: нарисуй прямоугольник внутри него два пересекающих друг друга круга. внутри прямоугольника поставь цифру 8 это те кто не любит комп. игры.

внутри одного круга напиши с и 62, это те кто любит симуляторы их 62 чел.

внутри другого круга напиши к и 54, это те кто любит квесты их 54 чел.

з.ы. у меня просто не хочет прикреплять рисунок.