Информатика, опубликовано 2018-08-22 23:49:10 by Гость
Pleeaseee heellpp С клавиатуры вводится текст содержащий цифры( любой текст придумать надо) . Определить произведение цифр меньших 4
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на