Question

Срочно нужна ваша помощь !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! решение на языке паскаль На обработку поступает натуральное число, не превышающее 10^9. Нужно написать программу, которая выводит на экран сумму нечетных цифр числа, которые делятся на 3. Если в числе нет таких цифр, требуется на экран вывести «NO».

Answer 1

Ответ:

program z1;

var a,s: longint;

begin

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

readln(a);

s:=0;

repeat

if (a mod 10 mod 2 = 1) and (a mod 10 mod 3 = 0) then s:=s+a mod 10;

a:=a div 10

until a=0;

if s = 0 then write('NO')

else writeln(s)

end.

Answer 2

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

pascalCopy code
program SumOfOddDigitsDivisibleBy3;

var
  num, digit, sum: integer;

begin
  sum := 0;
  
  write('Введите натуральное число: ');
  readln(num);
  
  while num > 0 do
  begin
    digit := num mod 10;
    
    if (digit mod 2 = 1) and (digit mod 3 = 0) then
      sum := sum + digit;
    
    num := num div 10;
  end;
  
  if sum > 0 then
    writeln('Сумма нечетных цифр, делящихся на 3: ', sum)
  else
    writeln('NO');
end.

Программа считывает натуральное число, затем последовательно проверяет каждую цифру числа на нечетность и делимость на 3. Если условие выполняется, то цифра добавляется к сумме. После проверки всех цифр выводится результат или "NO", если таких цифр не найдено.