Question

Составьте программу вычесления суммы всех трезнычных чисел кратных 14

Answer 1

Ответ:

sum = 0

for i in range(100, 1000):

    if i % 14 == 0:

          sum += i

print(sum)

Answer 2

Ответ:

program z;

var i,s:integer;

begin

s:=0;

for i:=100 to 999 do

if i mod 14 = 0 then s:=s+i;

write(s)

end.

Объяснение:

используем цикл с параметром (for i:=100 to 999 do) для перебора всех трёхзначных чисел и неполный оператор ветвления (if i mod 14 = 0 then s:=s+i;) для проверки соответствия числа условию (кратно 14)