Найти сумму всех чисел от 1 до заданного n которые - вопрос №1310835296 от веселаямышка 14.05.2023 19:22

Question

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

веселаямышка · 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.