Найти сумму всех чисел от 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.

var

a,b,c: real;

begin

readln(a,b,c);

writeln((a+b+c)/3);

end.

7680*90=691200

691200/16=43200

43200/400=108 страниц