Найти сумму всех чисел от 1 до заданного n которые - вопрос №1310835128 от vovaskorobogat 13.02.2020 20:08

Question

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

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