9 ноября, 16:18

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

Перевести на язык программирования и решить

+1
Ответы (1)
  1. 9 ноября, 17:41
    0
    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.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «С клавиатуры вводится n натуральных чисел, каждое не больше 1000. Подсчитать сумму введённых чисел, каждое из которых делится нацело на 6 и ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы