В шестизначном числе найти сумму четных цифр(паскаль)

Question

Информатика: В шестизначном числе найти сумму четных цифр(паскаль)

ismailovigbal13 · Answer

var a,s,i:integer; begin  writeln( введите шестизначное число );  readln(a);  s:=0;  for I:=1 to 6 do begin    if a mod 2 = 0 then s:=s+a mod 10;    a:=a div 10;  end;  writeln(s);end....

В шестизначном числе найти сумму четных цифр(паскаль)

Популярные вопросы