Question

Дано натуральное число. Определить:

а) количество цифр 3 в нем;

г) сумму его цифр, больших пяти

(На языке Паскаль, пожалуйста)

Answer 1

Ответ:

Объяснение:

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

program NumbersCount;

var

 number, digit, count3, sum5: Integer;

 

begin

 writeln('Введите натуральное число: ');

 readln(number);

 

 // Инициализируем счетчики

 count3 := 0;

 sum5 := 0;

 

 // Проверяем каждую цифру числа

 while number > 0 do

 begin

   digit := number mod 10;  // Получаем последнюю цифру

   

   if digit = 3 then

     count3 := count3 + 1;

     

   if digit > 5 then

     sum5 := sum5 + digit;

   

   number := number div 10;  // Убираем последнюю цифру

 end;

 

 writeln('Количество цифр 3: ', count3);

 writeln('Сумма цифр больше пяти: ', sum5);

 

 readln;

end.