Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

Дано натуральное число N. Найти сумму и количество чётных цифр. (На Паскале)

10-11 класс

1930loliru 29 июня 2014 г., 20:26:28 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Sparta1997
29 июня 2014 г., 22:33:55 (9 лет назад)

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.

Ответить

Другие вопросы из категории

Описать структуру с именем STUDENT, содержащую следующие поля

-фамилия и инициалы;
-номер группы (класса);
-успеваемость (массив из пяти элементов).

Читайте также

Помогите пожалуйста решить 1) дано натуральное число. Определить номер цифры 3 в нем считая от конца числа. Если такой цифры нет то ответ

0,если их несколько то номер крайней правой.

2) Дано натуральное число. Определить сумму m его последних цифр

3)Дано натуральное число. определить его максимальную цифру.

4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2

5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число

1.Дано натуральное число:

a) найти произведение цифр числа б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры)
2. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.
3.Из данного натурального числа удалить все цифры А (а вводятся с клавиатуры).

Написать программы в паскале и желательно блок-схему, но можно и без нее.
Помогите пожалуйста)

4 задачи: ввести натуральное число и определить, верно ли, что сумма цифр равна 10 (через repeat и until)//// ввести натуральное

число и определить, какие цифры встречаются несколько раз (через repeat и until)///

ввести целое число и найти сумму его цифр (через while)

ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)

всё через паскаль абс



Вы находитесь на странице вопроса "Дано натуральное число N. Найти сумму и количество чётных цифр. (На Паскале)", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.