1. Информатика
  2. Дано натуральное число. определить

Дано натуральное число. определить количество четных цифр в нем. составное условие и более одного неполного условного оператора не использовать.(паскаль)

erkisha erkisha    3   30.09.2019 22:40    5

Ответы
АнастасияКимЧанЫн АнастасияКимЧанЫн  09.10.2020 06:29

begin

 var a := 1234567;

 var s := 0;

 while a > 0 do

 begin

   s += Ord(a mod 10 mod 2 = 0);

   a := a div 10;

 end;

 s.Println;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
vovashkaruba vovashkaruba  21.11.2021 01:24
Информационный объём сообщения 4 килобайта. Алфавит, символами которого записано это сообщение содержит 256 символов. Сколько символов в сообщении? сделать с решением дам...
leraleva leraleva  27.05.2019 15:00
Склавиатуры вводятся 2 числа.найти большее из них. написать программу полной команды ветвления...
gonelep0bt6w gonelep0bt6w  27.05.2019 15:00
Решите ! сообщение занимает 2 страницы и содержит 1\16 килобайта. на странице 256 символов. сколько битов надо устройству для хранения одного символа?...
Mocket Mocket  15.12.2021 23:39
Определите кратчайший путь между пунктами a и b...
dbarkhatova dbarkhatova  15.12.2021 23:36
Использованный в лабораторной работе № 17 (Использование записей) массив записей должен сохраняться и обрабатываться в виде файла. При этом необходимо по указанию преподавателя...
маша3041 маша3041  16.02.2021 13:13
1. Какие ввода данных в двумерный массив вы можете назвать? 2. Что вы думаете о практической значимости сортировки двумерных массиров?3. Как выполняется удаление строки массива?4....
bochkova123Алеся bochkova123Алеся  16.02.2021 13:15
Известны оценки по физике каждого ученика двух классов. Определить среднюю оценку в каждом классе. Количество учащихся в каждом классе одинаковое. Решить задачу используя циклическую...
ирпимрпмро ирпимрпмро  18.07.2019 09:00
Расположите предложенные виды памяти по убыванию их быстродействия: а)внешняя память, б)кеш память, в)озу. г)регистры варианты ответа: 1-абвг, 2-авбг,3-гбва,4-гвба...
leraloslerap00mm6 leraloslerap00mm6  18.07.2019 09:00
Решить в программе паскальabc . даны пять любых чисел вывести на экран(в окно вывода) синус суммы первых трех чисел и косинус последних трех чисел!...
ivanm29 ivanm29  02.03.2019 17:50
Дано целое число с.напишите программу,которая возводит в квадрат остаток от целочисленного деления числа с на 10 и выводит на экран монитора результат...

Популярные вопросы