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

Question

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

Answer 1

35

ronnle

09 марта 2023

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)

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: