ТутРешу.Ру

Написать программу (на ABC pascal)…

Задание:

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

Решение:

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)




Знаете другой ответ?

Отправить свой ответ