Найти сумму всех чисел от 1 до заданного n которые - вопрос №1083472813 от elinashovhalova 02.09.2022 15:58

Question

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

elinashovhalova · Answer

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.