Найти сумму всех чисел от 1 до заданного n которые - вопрос №13510834953 от SuperGirl1111468 10.12.2022 08:32

Question

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

SuperGirl1111468 · 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.