Напишите программу, которая получает с клавиатуры натуральное число и определяет, сколько раз в его десятичной записи встречается цифра 1

Ответ:

Gowaimargowa123

14.08.2020 19:45

Var n,k:integer;
begin
write('n = ');
readln(n);
k:=0;
while n>0 do
begin
if n mod 10 = 1 then k:=k+1;
n:=n div 10;
end;
writeln('k = ',k);
end.

Пример:
n = 3191
k = 2

0,0(0 оценок)

Популярные вопросы: Информатика

natalyazaprudsozxkk3

11.12.2021 11:56

Программа для c++(с кнопками) которая вычисляет sin cos tg числа - а...

LiNa20142014

12.07.2022 02:19

Javascript.заданное натуральное число n и 2 одномерные массивы x и y,сформировать и вывести массив, каждый элемент которого, взятый из массива х, встречается в массиве y ровно два...

Nisson1

12.07.2022 02:19

Вдетской игре ,,угадай число первый участник загадывает целое число от 1 до 8.второй участник задает вопросы: загадочное число больше числа _? какое максимальное число колисчество...

Валерия1704

04.02.2020 16:47

Запишите значение переменной s полученное в результате работы следующей программы ,текст программы на трех языках var s.k: integer begin s: =0; k: =3 while k =12do begin s: =s+10;...

koneshno

04.02.2020 16:47

Что входит в редактирование документа? а)действия по добавлению рисунков в текст b)действия по исправлению ошибок в тексте с)изменение размера шрифта d)изменение цвета букв...

andruhmariya

04.02.2020 16:47

Уисполнителя квадратор две команды, которым присвоены номера: 1. зачеркни справа 2. возведи в квадрат первая из них удаляет крайнюю правую цифру числа на экране, вторая — возводит...

s0nnka

11.10.2022 08:50

Статья, набранная на компьютере, содержит 64 страницы,на каждой странице 40 строк, в каждой строке 64 символа. определите размер статьи в кодировке кои-8 , в которой каждый символ...

варя388

11.10.2022 08:50

Пользователь вводит ряд чисел (из количество он определяет сам, их количество находится в пределах от 1 до 100 включительно и является целым). числа, которые вводит пользователь,...

nastasyasaenko

02.07.2021 18:57

Написать программу, которая проверяет правильность расстановки пробелов в тексте и, если между словами более одного пробела,- удаляет лишние. ввод: мама мыла раму вывод: мама мыла...

НикитаЗеленюк

16.09.2022 15:40

Рассмотрите пример и укажи вид информации...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку