Question

На вход даётся число, определить произведение цифр числа кратных 3, если таких нет вывести на экран "нет".(паскаль)

Answer 1

var i, multi:integer;

   s:string;

begin

readln(s);

multi:=1;

for i:=1 to  length(s) do begin

 if StrToInt(s[i]) mod 3 = 0 then

  multi:=multi*StrToInt(s[i]);

end;

if multi = 1 then

 writeln('Нет')

else

 writeln(multi);

end.