Диск C правая кнопка мыши и форматировать
Var s:string;
i,m,n:integer;
begin
readln(s);
n:=-1;
for i:=1 to length(s) do begin
n+=1;
if (s[i]=' ') or (i=length(s)) then begin
if n>m then m:=n;
n:=0;
end;
end;
writeln(m);
<span>end.</span>
Var k,i,j:integer;
begin
read(k);j:=0;
for i:=1 to k do
if i mod 8=0 then j:=i;
if j=0 then writeln('такого нет') else writeln(j);
end.
Формы представления-
графическая,текстовая,звуковая.комбинированная,числовая.
способы-
осязание,вкусовая,визуально,тактильная
F(7)=F(7-2)*7=F(5)*7=15*7=105
Т.к.
F(3)=F(3-2)*3=F(1)*3=1*3=3
F(4)=F(4-2)*4=F(2)*4=1*4=4
F(5)=F(5-2)*5=F(3)*5=3*5=15
Ответ:105