pleeaseee heellpp С клавиатуры вводится текст содержащий цифры( любой текст придумать надо) . Определить произведение цифр меньших 4
Ответы на вопрос
Ответил petyaGavrikov
0
var s:string; i,p,n,code:integer;
begin
writeln('Text:');readln(s);
p:=1;
for i:=1 to length(s) do
if s[i] in ['0'..'3'] then
begin
val(s[i],n,code);
p:=p*n;
end;
writeln('p=',p);
end.
begin
writeln('Text:');readln(s);
p:=1;
for i:=1 to length(s) do
if s[i] in ['0'..'3'] then
begin
val(s[i],n,code);
p:=p*n;
end;
writeln('p=',p);
end.
Новые вопросы