Получи верный ответ на вопрос «Напишите программу которая считает количество чётных цифр введённого числа . » по предмету Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Новые вопросы по информатике
Напиши обратные действия. Снять — Открыть — Прилететь —
Перевести число 2-чной системы счисления в 10-чную: 1110000/2, 10001101/2
Какими знаками можно обозначить на письме звонкий и глухой удары в барабан?
1) В поезде 17 вагонов, 10-17-купейные, остальные-плацкарт. Ввести № вагона. напечатать вид. 2) Ввести 2 числа. Напечатать их частное или сообщить, что на 0 делить нельзя
Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется получить? программа паскаль
Источник: 4i5.ru
Количество четных и нечетных цифр числа
Написать программу, подсчитывающую количество четных и нечетных цифр числа.
Посчитать четные и нечетные цифры числа. Решение задачи на Python
- even — количество четных цифр
- uneven — количество нечетных цифр
Алгоритм решения задачи:
- Если число делится без остатка на 2, значит его последняя цифра четная (увеличиваем переменную even ). Иначе последняя цифра нечетная, тогда увеличиваем на 1 значение uneven ).
- Избавляемся от младшего разряда числа, разделив его нацело ( div ) на 10.
Программа на языке Паскаль:
var a: longint; even, uneven: byte; begin readln(a); even := 0; uneven := 0; while a > 0 do begin if (a mod 2) = 0 then even := even + 1 else uneven := uneven + 1; a := a div 10; end; writeln(‘Even: ‘, even); writeln(‘Uneven: ‘, uneven); end.
Пример выполнения программы:
84521 Even: 3 Uneven: 2
Источник: pas1.ru
Напишите программу, которая считает количество чётных цифр введённого числа — Pascal
Напишите программу, которая считает количество чётных цифр введённого числа. Входные данные Входная строка содержит одно натуральной число N . Выходные данные Программа должна вывести количество чётных цифр введённого числа.
var x,z,k:integer; begin readln(x); k:=0; while x<>0 do begin z:=x mod 10; x:=x div 10; if x mod 2=0 then k:=k+1; end; writeln(k); end.
Ввожу например 135 мне выдает 1 хотя должно быть 0 не могу понять в чем ошибка??
Код к задаче: «Напишите программу, которая считает количество чётных цифр введённого числа»
Листинг программы
var x,z,k:integer; begin readln(x); k:=0; while x>0 do begin z:=x mod 10; if z mod 2=0 then k:=k+1; x:=x div 10; end; writeln(k); end.
Источник: studassistent.ru