Предмет: Информатика,
автор: brodytwd
Здравствуйте! помогите пожалуйста решить 2 задачу с Паскалем.
(я просто вообще не шарю в этом, а писать всё равно нада хех)
Вопрос:
Напишите процедуру, в которой определяется сумма четных цифр числа N. Процедуру включите в программу, в которой пользователь вводит N, запускается процедура и программа печатает ответ.
Приложения:
Ответы
Автор ответа:
1
Выбирайте, как вам больше нравится: первая картинка - рекурсия, вторая - итерация. Окно вывода: первая строка - ввод, вторая - вывод. Код можно скопировать из комментариев под решением.
Приложения:
procedure bar(a, n: integer);
begin
while a <> 0 do
begin
if a mod 2 = 0 then
n += a mod 10;
a := a div 10
end;
Write(n)
end;
var
a: integer;
begin
Read(a);
bar(Abs(a), 0)
end.
begin
while a <> 0 do
begin
if a mod 2 = 0 then
n += a mod 10;
a := a div 10
end;
Write(n)
end;
var
a: integer;
begin
Read(a);
bar(Abs(a), 0)
end.
И лучший ответ поставьте.
Похожие вопросы
Предмет: История,
автор: girosprotsenko
Предмет: Химия,
автор: MazikinMaze
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: tatianaystinova
Предмет: Математика,
автор: Аноним
begin
if a = 0 then
Write(n)
else
foo(a div 10, n + (a mod 10) * Ord(a mod 2 = 0));
end;
var
a: integer;
begin
Read(a);
foo(Abs(a), 0);
end.