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

Question

Информатика

Римуля

25 июня, 03:32

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

+2

Ответы (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.