Question

Срочно!!Дано натуральное число N. Вычислить сумму цифр этого числа,которые не делятся на 4. В паскале

Answer 1

var

 i, si, N, ss: Integer;

 s: string;

begin

   Write ('Введите N: ');

   ReadLn (N);

   s := IntToStr (N);

   ss := 0;

   for i := 1 to Length (s) do begin

     si := StrToInt (s [i]);

     if si mod 4 <> 0 then

       ss := ss + si;

   end;

   Writeln ('Сумма цифр = ' + IntToStr (ss));

end.

// второй вариант решения

var

si, N, ss: Integer;

begin

Write ('Введите N: ');

ReadLn (N);

ss := 0;

while N > 0 do begin

si := N mod 10;

N := N div 10;

if si mod 4 <> 0 then

ss := ss + si;

end;

Writeln ('Сумма цифр = ' + IntToStr (ss));

end.

Answer 2

Вот пример программы на Pascal, которая вычисляет сумму цифр натурального числа N, которые не делятся на 4:

pascalCopy code
program SumDigitsNotDivisibleByFour;

var
  N, digit, sum: integer;

begin
  sum := 0;

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

  while N > 0 do
  begin
    digit := N mod 10;  // Получаем последнюю цифру числа N

    if digit mod 4 <> 0 then
      sum := sum + digit;  // Если цифра не делится на 4, добавляем ее к сумме

    N := N div 10;  // Удаляем последнюю цифру числа N
  end;

  writeln('Сумма цифр числа, не делящихся на 4:', sum);
  
  readln;
end.

Вы можете ввести значение переменной N и программа вычислит сумму цифр этого числа, которые не делятся на 4.