Регистрация
Настька1210
06.10.2022 09:50
Информатика
Есть ответ 👍

Нужно разгадать ребус(украинский)

155
200
Посмотреть ответы 1

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

Zhenyarishka1
Zhenyarishka1
4,8(84 оценок)
Впредыдущем вопросе я написала решение. program z; var a,b,c,d,e,x,g,h: integer; begin write('введите пятизначное число'); read(x); a: = x mod 10; b: = x mod 100; b: = b div 10; c: = x mod 1000; c: = c div 100; d: = x mod 10000; d: = d div 1000; e: = x mod 100000; e: = e div 10000; if a mod 2=0 then h: =a else g: =a; if b mod 2=0 then h: =h+b else g: =g+b; if c mod 2=0 then h: =h+c else g: =g+c; if d mod 2=0 then h: =h+d else g: =g+d; if e mod 2=0 then h: =h+e else g: =g+e; writeln(' сумма нечётных цифр равна ', g); write(' сумма чётных цифр равна ', h); end.

Популярно: Информатика