Нужно найти такое значение n, при котором выполняется условие
Это число 5, так как , то есть коды должны быть пятизначными
Нужно найти такое значение n, при котором выполняется условие
Это число 5, так как , то есть коды должны быть пятизначными
Var a,i,sum,proiz:integer;
Begin
proiz:=1; sum:=0;
for i:=1 to 7 do
begin
read(a);
if (a<3) then proiz:=proiz*a;
if (a>3) then sum:=sum+a;
end;
Writeln('proiz=', proiz, ' ', 'sum=',sum);
Readln;
End.