Найти сумму всех чисел от 1 до заданного n которые делятся на 3 и не делятся на 5

begin

 var count:=0;

 var i: integer;

 var n:=ReadInteger('Введите N:');

 for i:=1 to n do

 if (i mod 3 = 0 ) and (i mod not 5 = 0)

 then

 count+=i;

 Print('Сумма удовлятворяющие условие: ', count);

end.

b) 9 лет

2020=4

2011=4 

256= 2^i=2^8следовательно i=8 битов

8*80*32=20480 битов

20480*2=40960 битов=5120 байт=5 килобайт

^ - это я так обозначила степень

i - количество информации(обычно обозначается большой буквой)

* - умножить