Вслучайном числе от 100 до 5000 подсчитать сумму четных цифр и нечетных цифр. через паскаль

215

284

Посмотреть ответы 2

Ответы на вопрос:

TheFelixShow

Информатика

4,4(78 оценок)

Var a,s1,s2,i: integer; begin a: =random(4901)+100; writeln('a = ',a); s1: =0; s2: =0; for i: =1 to 4 do begin if a mod 2 = 0 then s1: =s1+a mod 10 else s2: =s2+a mod 10; a: =a div 10; end; writeln('сумма чётных цифр = ',s1,' сумма нечётных цифр = ',s2); end. пример: a = 4683сумма чётных цифр = 18 сумма нечётных цифр = 3