
Даны четырехзначное натуральное число. Найти количество цифр кратных 5.Формат ввода:В первой строке - четырехзначное натуральное число.Формат вывода:Целое число.Пример входных данных3510Пример выходных данных2Написать на Паскале

program five;
var
number, quantity: integer;
begin
quantity := 0;
read(number);
while number > 0 do
begin
if (number mod 10 mod 5 = 0) then
inc(quantity);
number := number div 10;
end;
write(quantity);
end.
program five; // Название программы
var
number, quantity: integer; // Целочисленные переменные:
- number - вводимое с клавиатуры число;
- quantity - количество цифр кратных 5.
begin // Начало программы
quantity := 0; // Количество цифр = 0
read(number); // Ввод числа с клавиатуры
while number > 0 do // Пока значение переменной number > 0
begin // Начало цикла
if (number mod 10 mod 5 = 0) then // Если последняя цифра переменной number (number mod 10) при делении на 5 дает остаток 0, тогда
inc(quantity); // Прибавляем к переменной quantity единицу
number := number div 10; // Удаляем последнюю цифру числа
end; // Конец цикла
write(quantity); // Вывод а
end. // Конец программы