Question

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

Answer 1

var s:string;

a,b,i,proiz,sum,kl:integer;

Begin

readln(s);

b:=length(s);

for i:=1 to b do

begin

val(a,s[i],kl);

if a mod 5 =0 then proiz:=proiz*a;

if a mod 2 = 0 then sum:=sum+a;

end;

writeln(proiz);

writeln(sum);

End.

Объяснение:

если программа будет ругаться на строчку где написан val, просто поменяй местами a и s[i]