Склавиатуры вводится n натуральных чисел, каждое не больше 1000. подсчитать сумму введённых чисел, каждое из которых делится нацело на 6 и оканчивается цифрой 8. перевести на язык программирования и решить

Кейси001 Кейси001    2   30.09.2019 07:01    0

Ответы
mia017 mia017  09.10.2020 04:53

Pascal ABC

var

  n, sum, a, i:integer;

begin

    readln(n);

    for i:=1 to n do begin

        readln(a);

        if (a mod 6 = 0) and (a mod 10 = 8) then

        sum := sum + a;

    end;

    writeln(sum);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика