Question

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

Answer 1

var i, sum:integer;

   n:string;

begin

readln(n);

for i:=1 to length(n) do begin

 if StrToInt(n[i]) mod 4 <> 0 then

  sum:=sum+StrToInt(n[i]);

end;

writeln(sum);

end.

Answer 2

Вот пример кода на языке Паскаль, который вычисляет сумму цифр числа N, не делящихся на 4:

pascalCopy code
program SumOfDigits;

var
  N, digit, sum: integer;

begin
  writeln('Введите число N:');
  readln(N);

  sum := 0;

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

    if (digit mod 4) <> 0 then
      sum := sum + digit;

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

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

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