Паскаль. дана строка.найти произведение цифр этой - вопрос №8268968 от LoVE3223 24.11.2020 13:13

Question

Информатика: Паскаль. дана строка.найти произведение цифр этой строки.если цифра равна нулю,то цифру в произведение не включать. !

LoVE3223 · Answer

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....