ДАМ 40 БАЛЛОВ тем кто доступно объяснит,что значит в паскале АВС :2:4 Пример(ниже весь код)
begin
readln(c);
pc:=1;
pn:=1;
while c div 10 >0 do
begin
if (c mod 10) mod 2=0 then
pc:=pc*(c mod 10)
else
pn:=pn*(c mod 10);
c:=c div 10;
end;
if c mod 2=0 then pc:=pc*c else pn:=pn*c;
writeln(pc/pn:4:2);
readln;
end.
?writeln(pc/pn:4:2);?
begin
readln(c);
pc:=1;
pn:=1;
while c div 10 >0 do
begin
if (c mod 10) mod 2=0 then
pc:=pc*(c mod 10)
else
pn:=pn*(c mod 10);
c:=c div 10;
end;
if c mod 2=0 then pc:=pc*c else pn:=pn*c;
writeln(pc/pn:4:2);
readln;
end.
?writeln(pc/pn:4:2);?
More Questions From This User See All