с клавиатуры вводятся N произвольных натуральных чисел. найти сумму тех из них в составе которых отсутствуют нечетные цифры
5-9 класс
|
var
tmp, sum, i, n : integer;
function f (n : integer) : boolean;
begin
f := false;
while n > 0 do
if (n mod 10) mod 2 = 1 then exit
else n := n div 10;
f := true;
end;
begin
read (n);
for i := 1 to n do
begin
read (tmp);
if f (tmp) then sum := sum + tmp;
end;
writeln (sum);
end.
Другие вопросы из категории
определить правило, по которому автоматического устройство осуществляет преобразования информации.
ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!
Даны целые положительные числа M и N. Сформировать целочисленную матрицу размера M х N, у которой все элементы J-го столбца имеют значение 5•J (J = 1, …, N). Вывести матрицу в общепринятом виде.
Читайте также
6.Программа должна вывести одно число:сумму чисел,введенных с клавиатуры, кратных 4 и оканчивающихся на 6.
На языке Паскаль. Очень нужно!
Введите 5 положительных уныл чисел, вычислите сумму тех из них которые делятся на 4, и оканчиваются на 6. Если таких чисел нет, то вывести об этом сообщение.
(Тема:Программирование ветвлящихся и цепленных алгоритмов)
2.Дано двухзначное число,найти сумму и произведение его чисел.
(2-ая задача решается с div и mod)
(Тема:Программирование ветвлящихся и цепленных алгоритмов )