3. Дано натур. семизначное число P. Вычислить сумму чётных цифр числа. Вывести на экран последовательность из четных цифр числа.
помогите написать программу в Паскале.
Ответы
Ответ дал:
0
var P, sum: integer;posl:string;beginsum:=0;readln(P);while P> 0 do beginif P mod 10 mod 2=0 then beginsum:=sum+P mod 10;posl:=posl+' '+P mod 10;end;P:=P div 10;end;writeln(sum);writeln(posl);end.
Приложения:
![](https://st.uroker.com/files/a65/a65b7726bcb49f18190bc12986fc4f08.jpg)
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад