Question

Напишите программу для задачи: определить сумму цифр трехзначного числа кратных 4
На языке Паскаль

Answer 1

begin

 var n := ReadInteger('n =');

 var s := n.ToString;

 var sum := 0;

 foreach var x in s do

   if x in ['4', '8'] then sum += x.ToDigit;

 sum.Println;

end.