В шестизначном числе найти сумму четных цифр(паскаль) - вопрос №16264342 от Nawrik34digma 18.07.2022 22:54

Question

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

Nawrik34digma · 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....