Дано натуральное число N. Найти сумму и количество чётных цифр. (На Паскале)
10-11 класс
|
var
n:longint;
k,sum:integer;
begin
write ('N = ');
readln(n);
k:=0;
sum:=0;
while n <> 0 do
begin
if (n mod 10) mod 2 = 0 then
begin
k:=k+1;
sum:=sum+(n mod 10);
end;
n:=n div 10;
end;
writeln ('Summa: ',sum);
writeln ('Kol-vo: ',k);
readln;
end.
Другие вопросы из категории
1) 0
2) 2
3) 4
4) 8
5) 16
передачи файла в секундах.
-фамилия и инициалы;
-номер группы (класса);
-успеваемость (массив из пяти элементов).
Читайте также
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число
a) найти произведение цифр числа б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры)
2. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.
3.Из данного натурального числа удалить все цифры А (а вводятся с клавиатуры).
Написать программы в паскале и желательно блок-схему, но можно и без нее.
Помогите пожалуйста)
2.дано натурально число N вычислить куб суммы этого числа
число и определить, какие цифры встречаются несколько раз (через repeat и until)///
ввести целое число и найти сумму его цифр (через while)
ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)
всё через паскаль абс
3) Количество четных цифр в нем.
желательно в Basic. но можно и паскаль