Задача по информатике на паскале. Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число − сумму чисел, кратных 5.
program SumMultipleOfFive va n, i, num, sum: integer begi sum := 0 readln(n) for i := 1 to n d begi readln(num) if (num mod 5 = 0) the sum := sum + num end writeln(sum) end.
va
n, i, num, sum: integer
begi
sum := 0
readln(n)
for i := 1 to n d
begi
readln(num)
if (num mod 5 = 0) the
sum := sum + num
end
writeln(sum)
end.