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

1 ответ

Посмотреть ответы

DevAdmin

1720

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

Хороший ответ

4 апреля 2023 22:27

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Знаковой информационной моделью не является ... 1) Рисунок 2) Словесное описание 3) фотография 4) график... 1. Для какого из приведённых чисел истинно высказывание: (число <75) И НЕ (число чётное)? 1) 46 2) 53 3) 80 4) 99 2. Для какого из приведённых чисе... Какие формы общения в реальном времени существуют в интернете ?... Составьте программу нахождения наибольшего общего делителя трех чисел на паскале. Вроде составила блок-схему, которая работает,но что-то не получается... Задача 1: Размер файла: 4 Кбайт Скорость: 32 Кбит/с Время = ? секунд Шаги решения: Переведите Кбайты в Кбиты: 4 Кбайт × 8 = _____ Кбит Раздел...