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

основной текст в египте писали чёрной краской ,чтобы выделить начало строки или фразы писали красным .(но выделяли редко -писчий материал был дорогим).

пусть х основание системы счисления, тогда:

122х (здесь х должен стоять нижним индексом) = 1*х² + 2*х¹ + 2*х⁰=х²+2х+2 - это десятичная запись исходного числа, значит:

х²+2х+2=65

х²+2х-63=0

д= 4 + 252 = 256

х₁ = (-2-  16)/2 = -9 (не удовлетворяет)

х₂ = (-2 + 16)/2 = 7

ответ. основание системы счисления = 7.