Написать программу в паскале.

Дано произвольное целое положительное число k. Найти сумму всех чётных цифр этого числа

Question

Информатика

Аннюся

6 октября, 12:22

Написать программу в паскале.

Дано произвольное целое положительное число k. Найти сумму всех чётных цифр этого числа

+1

Ответы (1)

Знаете ответ на вопрос?

Елюся · Answer 1

Program folsc;

uses crt;

var s, n:longint;

begin

s:=0;

read (n) ;

while (n 0) do begin

if ((n mod 10) mod 2) = 0 then s:=s+n mod 10;

n:=n div 10 end;

writeln (s) ;

end.

Написать программу в паскале.Дано произвольное целое положительное число k. Найти сумму всех чётных цифр этого числа

Написать программу в паскале.

Дано произвольное целое положительное число k. Найти сумму всех чётных цифр этого числа