В шестизначном числе найти сумму четных цифр(паскаль) - вопрос №16263999 от дима22819 26.04.2022 19:47

Question

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

дима22819 · 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....