Информатика, вопрос задал viktordidi , 2 года назад

Составить программу для вычисление суммы ТОЛЬКО ЧЕТНЫХ цифр числа


aminareym: На каком языке программирования?
viktordidi: паскаль
aminareym: Какие данные даются на вход?
viktordidi: while
mod
1Hallo2: Это не данные, а предлагаемые тобой операции, но можно обыграть это и иначе
viktordidi: нужно чуть проще
viktordidi: для начинающих

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

Ответил 1Hallo2
0

Ответ:

var x:string;

   y:longint;

begin

 readln(x);

 y:=0;

 for var a:=1 to length(x) do

   if (strtoint(x[a]))mod 2=0 then y+=strtoint(x[a]);

 writeln(y);

end.

Приложения:
Новые вопросы