ГСЧ сгенерировать число в интервале от -20 до 20. Определить четное это число или нечетное. Написать программу. КУМИР вообще не шарю

147

410

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

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

docogov

Информатика

4,8(50 оценок)

Скорее всего всё можно было проще сделать, но я только так понимаю, так что вот. программа проверена и работает. 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.