Решить двумя способами. Напишите программу, которая получает с клавиатуры натуральное число и определяет, сколько раз в его десятичной записи встречается цифра 1. Пример: Введите число? 311 Единиц: 2

Question

Информатика

Настюня

1 июня, 12:08

Решить двумя способами. Напишите программу, которая получает с клавиатуры натуральное число и определяет, сколько раз в его десятичной записи встречается цифра 1. Пример: Введите число? 311 Единиц: 2

+3

Ответы (1)

Знаете ответ?

Аристид · Answer 1

Program n1;

var num, k: integer;

begin

write ('Введите число ') ;

readln (num) ;

k:=0;

while num0 do

begin

if abs (num mod 10) = 1 then

k:=k+1;

num:=num div 10;

end;

writeln ('Единиц: ', k) ;

end.