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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

//PascalABC.Net 3.2

begin

var n:=readinteger(‘Введите число: ‘);

var count:=0;

repeat

if abs(n mod 10)=1 then count+=1;

n:=n div 10;

until n=0;

write (‘Единиц: ‘, count);

end.