Question

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

Answer 1

Ответ:

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.

Answer 2

Range(1,n).Where(p -> (p mod 3 = 0 ) and (p mod 5 <> 0)).Count