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

Question

Информатика

Святослава

31 августа, 07:36

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

+5

Ответы (1)

Знаешь ответ?

Харитон · 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.