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

Дано натуральное число : найти в нем общее количество цифр 1 и 2. на языке паскаля

julyazolotko20 julyazolotko20    2   08.07.2019 11:20    0

Ответы
Uprava78 Uprava78  16.09.2020 12:49
Var a,n : Integer;
Begin
  Readln(a);
  n:=0;
  While a>0 do
  Begin
   Inc(n,Ord((a mod 10) in [1,2]));
   a:=a div 10;
  end;
  Writeln(n);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
msckayla msckayla  22.06.2019 09:30
Определить какое значение будет принимать переменнаz y после выполнения фрагментов программы var x,y: integer ; begin y: =0 ; for x: =1 to 9 do y: =y+1 ; writeln(`y=`...
Машаrobotg Машаrobotg  24.07.2022 18:40
Программа должна запрашивать ввод оценок за итоговые тесты и считать количество пятёрок. Хорошисты и отличники поощряются скидками на поездку в театр: - от 4 до...
glebtomilovpop0 glebtomilovpop0  24.07.2022 19:55
Пользователь вводит строку. Ваша задача - проверить, может ли эта строка, быть именем переменной. Переменная не может начинаться с цифры, состоять только из цифр,...
neketapro neketapro  24.07.2022 20:43
До іть, будь ласка, розв язати 4 задачі на мові Python!...
alinag13052005 alinag13052005  02.04.2021 20:32
Задачу надо решить на ПАЙТОНЕ ! Задача №1415. Шифр Юлия Этот контест вы могли порешать дома Юлий Цезарь использовал свой шифрования текста. Каждая буква заменялась...
ilyadengin ilyadengin  02.04.2021 20:34
Складіть проект для малювання чотирьох квадратів, розміщених поруч. Довжина сторони першого з них дорівнює a кроків, а довжина сторони кожного наступного - на b...
kira183kira kira183kira  08.07.2019 15:40
Модем, информацию со скоростью 16 384 бит/сек., передал цветное растровое изображение за 4 мин 16 сек. укажите максимальное число цветов в палитре изображения,...
Алла36 Алла36  08.07.2019 15:40
Паскаль. с клавиатуры вводятся два целых числа. сколько раз в записи их суммы встречается цифра 1?...
dimalvov1993 dimalvov1993  12.08.2019 19:00
Сочинить сиквейн про компьютер.только не из интернета...
kirkanobotan kirkanobotan  12.08.2019 19:00
Вадим позвонил соне и ане,аня позвонила пете,соня позвонила пете и ане.однако кое-кому не удалось переговорить,потомучто связь перестала работать.кто из не узнал...

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