3. среди ниже четырех арифметических выражения три представляют собой разные варианты линейной записи - id639212620201026 от простой221 26.10.2020 03:02

Question

Информатика: 3. среди ниже четырех арифметических выражения три представляют собой разные варианты линейной записи одного и того же арифметического выражения. найдите лишнее выражение, перейдя от линейной записи к общепринятой. 1) b/e/c*(a*d) 2) (a*b)/(c*d)/e 3) a*b/c*d/e (a*d*b)/(c*e)

простой221 · Accepted Answer

Var s,s1,s2,smax:string;
max,k,p,i:integer;
begin
writeln('Введите предложение:');
readln(s);
s1:=s; s1[length(s1)]:=' ';
max:=0;
smax:='';
while s1<>'' do
begin
p:=pos(' ',s1);
s2:=copy(s1,1,p-1);
k:=0;
for i:=1 to p-1 do
if s2[i]='а' then k:=k+1;
if k>max
then begin max:=k; smax:=s2; end
else if k=max then smax:=smax+','+s2;
delete(s1,1,p);
end;
writeln(smax);
writeln('k = ',max);
end.

Пример:
Введите предложение:
Макаронина и балаган а также команда каска и палатка.
Макаронина,балаган,палатка
k = 3

MOGZ ответил