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

Question

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

zajka23oz3xl9 · Answer

Var  n, c: integer;begin  repeat    write( Число - );    readln(n);    if ((n mod 6) = 0) and ((n mod 4) = 0) then      c := c + n;  until n = 0;  Write( Сумма всех чисел, кратных 6 и оканчивающихся на 4 равна , c);end....

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