Даны четыре натуральных числа. Просуммировать те из них, которые не содержат цифру 5

Question

Даны четыре натуральных числа. Просуммировать те из них, которые не содержат цифру 5

Answer 1

Х)

var
  i, k, b, a, sum: integer;

begin
  for i := 1 to 4 do
  begin
    readln(a);
    b := a;
    k := a;
    while (b > 0) do
    begin
      if (b mod 10 = 5) then
      begin
        k := 0;
      end;
      b := b div 10;
    end;
    sum := sum + k;
  end;
  writeln(sum);
end.

Comments

а можно с использованием процедур и с использованием функций.

---

Какую именно функцию внести в сей код?

---

эту же задачу нужно сделать с использованием:1) процедуры 2)функции.

---

Каких именно? Ну, что они делать будут? Дело в том, что можно много всего поместить в подпрограммы, хоть всю программу)

---

все что было дано я уже написала.

---

больше ничего добавить не могу

---

или просто ответьте на вопрос: как можно узнать, содержит или нет число цифру 5.

---

Ввести переменную пройтись по всем цифрам числа
Если есть "5" - изменить значение переменной

---

var
A,S,i:integer;
procedure summ(a:integer;var s:integer);
var
k:integer;
t:boolean;
begin
t:=false;
k:=a;
if k<10 then k:=k+10;<br> repeat
t:=(k mod 10=5);
k:=k div 10;
until (k=0) or t;
if not t then
s:=s+a;
end;
begin
S:=0;
for i:=1 to 4 do begin
write(I,' число =');
readln(A);
summ(A,S);
end;
writeln('S=',S);
end.