Нужно напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3 и оканчивающихся на 8. программа

Question

Информатика: Нужно напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3 и оканчивающихся на 8. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 3 и оканчивающееся на 8. количество чисел не превышает 100. введённые числа по модулю не превышают 300. программа должна вывести одно число: сумму чисел, кратных 3 и оканчивающихся на 8.

avfvffg · Answer

Var    i, s, n, d: integer;begin    readln(n);    for i := 1 to n do     begin        readln(d);        if (d mod 10 = 8) and (d mod 3 = 0) then            s := s + d;    end;    writeln(s);end....

Популярные вопросы