Uses crt;var i,k,s:integer;beginwriteln('vvedite chislo');readln(i);s:=1;while i>0 do begink:=i mod 10;if k > 0 thens:=s*k; i:=i div 10;end;writeln(s);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
