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

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

Question

Информатика

Ермиония

11 апреля, 13:38

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

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

+4

Ответы (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. Найти сумму всех чётных цифр этого числа