• написать программу(на ABC pascal), которая находит сумму четных цифр в введенном с клавиатуры натуральном числе меньше 30000)

Ответы 1

  • Program Zn;var n,k,sum:integer;BeginWriteln('Введите натуральное число');Readln(n);While n<>0 do begink:= n mod 10;if k mod 2 = 0 then sum:=sum+k;n:= n div 10;end;writeln('Сумма четных чисел  = ', sum);end.

    (Проверено и откомпелировано на Pascal.NET)

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years