Question

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

Answer 1

Ответ:

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. // Конец программы

Answer 2

Конечно, вот программа на Pascal, которая выполняет указанную задачу:

pascalCopy code
program CountMultiplesOf5;

var
  number, digit, count: integer;

begin
  // Ввод четырехзначного числа
  writeln('Введите четырехзначное число:');
  readln(number);

  // Инициализация счетчика
  count := 0;

  // Перебор цифр числа
  for var i := 1 to 4 do
  begin
    // Получение очередной цифры числа
    digit := (number div trunc(power(10, i - 1))) mod 10;
    
    // Проверка на кратность 5
    if digit mod 5 = 0 then
      count := count + 1;
  end;

  // Вывод результата
  writeln('Количество цифр, кратных 5: ', count);
end.

Программа запрашивает у пользователя четырехзначное число, затем перебирает его цифры, проверяет, является ли каждая цифра кратной 5, и подсчитывает их количество. Результат выводится на экран.