сервис вопросов и ответовДано натуральное число.Определить каких цифр в данном числе больше четных или нечетных.Через Паскаль
10-11 класс|
|
Bubonik96
02 февр. 2017 г., 6:24:30 (7 лет назад)
Владимир123456
02 февр. 2017 г., 8:00:35 (7 лет назад)
var n:longint;
s:string;
i, ch, neCh:integer;
begin
readln(n);
s:=intToStr(n);
i:=1;
while (i <= length(s)) do
begin
if (strToInt(s[i]) mod 2 = 1) then neCh:=neCh+1
else ch:=ch+1;
i:=i+1;
end;
if (ch > neCh) then writeln('Чётных чисел больше');
if (ch < neCh) then writeln('Нечётных чисел больше');
if (ch = neCh) then writeln('Чётных и нечётных чисел поровну');
end.
Irinadudukina
02 февр. 2017 г., 9:43:02 (7 лет назад)
Данные вводятся с клавиатуры?
Ответить
Другие вопросы из категории
Помогите, пожалуйста, решить задачу в Паскале:
Дан массив целых чисел. Выяснить, является ли s-ый элемент массива положительным числом.
Срочно!!!!!!!!!
С экрана монитора человек воспринимает цвет как сумму излучения трех базо-
вых цветов:
1) желтый, зеленый и синий
2) красный, синий и коричневый
3) красный, зеленый и синий
4) белый, черный и серый
Читайте также
Помогите пожалуйста решить 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.какая из его цифр больше,первая или вторая; b. одинаковы ли его цифры. 2. Дано двухзначное число.
Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.
1.Дано натуральное число:
a) найти произведение цифр числа б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры)
2. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.
3.Из данного натурального числа удалить все цифры А (а вводятся с клавиатуры).
Написать программы в паскале и желательно блок-схему, но можно и без нее.
Помогите пожалуйста)
Вы находитесь на странице вопроса "Дано натуральное число.Определить каких цифр в данном числе больше четных или нечетных.Через Паскаль", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.