Mias
6 год назад
Решите на паскале эту блок схему
ОТВЕТЫ
Sazunem
Aug 7, 2019
Var x,p,s:integer;
begin
read(x);
p:=1;
s:=0;
repeat if xgt;0 then s:=s+x else p:=p*x;
read(x);
until x=0;
writeln(p,s);
end.
begin
read(x);
p:=1;
s:=0;
repeat if xgt;0 then s:=s+x else p:=p*x;
read(x);
until x=0;
writeln(p,s);
end.
48
Смежные вопросы:
