Вводятся N произвольных натуральных чисел. Найти сумму тех из них , в составе которых отсутствуют нечетные цифры.
5-9 класс
|
program chisla;
var
i,n,a,s:integer;
begin
s:=0;
writeln('Введите кол-во произвольных натуральных, которые будете вводить');
readln(n);
for i:=1 to n do begin
writeln('Введите число\');
readln(a);
If (a mod 2=0) and ((a div 10) mod 2=0) and ((a div 100) mod 2=0)
and ((a div 1000) mod 2=0) and ((a div 10000) mod 2=0) and ((a div 100000) mod 2=0) and ((a div 1000000) mod 2=0) then begin
s:=s+a;
end
else;
end;
writeln(s);
end.
Другие вопросы из категории
известные вам способы подключения к инету. 4.при каких способах подключения к инету соединение с сервером существует постоянно,а при каких-временно?
Читайте также
6.Программа должна вывести одно число:сумму чисел,введенных с клавиатуры, кратных 4 и оканчивающихся на 6.
На языке Паскаль. Очень нужно!
Введите 5 положительных уныл чисел, вычислите сумму тех из них которые делятся на 4, и оканчиваются на 6. Если таких чисел нет, то вывести об этом сообщение.
(Тема:Программирование ветвлящихся и цепленных алгоритмов)
2.Дано двухзначное число,найти сумму и произведение его чисел.
(2-ая задача решается с div и mod)
(Тема:Программирование ветвлящихся и цепленных алгоритмов )
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.