program zadacha;
<span>var</span>
<span>s,temp,max,min:string;</span>
<span>i,mxp,mnp:integer;</span>
<span>begin</span>
<span>writeln('Введите строку...');</span>
<span>readln(s);</span>
<span>s:=s+' ';</span>
<span>temp:='';</span>
<span>max:='';</span>
<span>min:=s;</span>
<span>for i:=1 to length(s) do</span>
<span>begin</span>
<span>if s[i]<>' ' then</span>
<span>temp:=temp+s[i];</span>
<span>if (s[i]=' ') and (temp<>'') then</span>
<span>begin</span>
<span>if Length(temp)<Length(min) then</span>
<span>begin</span>
<span>min:=temp;</span>
<span>mnp:=i-Length(temp)</span>
<span>end;</span>
<span>if Length(temp)>Length(max) then</span>
<span>begin</span>
<span>max:=temp;</span>
<span>mxp:=i-Length(temp)</span>
<span>end;</span>
<span>temp:='';</span>
<span>end;</span>
<span>end;</span>
<span>if max<>'' then</span>
<span>begin</span>
<span>Writeln('Самое длинное: ',max,' Оно начинается с: ',mxp);</span>
<span>Writeln('Самое короткое: ',min,' Оно начинается с: ',mnp)</span>
<span>end</span>
<span>else</span>
<span>WriteLn('В данной строке нет слов!')</span>
<span>end.</span>
С помощью графического и текстового редактора
1)Var a: array [1..10] of integer;
pr,i:integer;
begin
pr:=1;
for i:=1 to 10 do
begin
readln(a[i]);
if a[i] mod 7 = 0 then
pr:=pr*a[i];
end;
writeln(pr);
end.
2)Var a: array [1..17] of integer;
count,i:integer;
begin
randomize;
count:=0;
for i:=1 to 17 do
begin
a[i]:=random(21)-10;
writeln(a[i]);
if a[i]>0 then inc(count);
end;
writeln(count);
end.
3)Var a: array of integer;
count,i,n,c:integer;
begin
readln(n);
count:=0;
Setlength(a,n+1);
c:=0;
for i:=1 to n do
begin
readln(a[i]);
if (a[i]>5) and (i mod 2 =0) then
begin
inc(count);
c:=c+a[i];
end;
end;
writeln(c/count);
end.
4)Const N=35;
Var a: array [1..N] of integer;
i:integer;
begin
randomize;
for i:=1 to N do
begin
a[i]:=random(21)-5;
write(a[i]:4);
if (a[i] mod 10 = 5) then a[i]:=0
else a[i]:=1;
end;
writeln;
for i:=1 to N do
write(a[i]:4);
end.
Книга не лежит на столе.
Рена не идёт в школу.
Не все фрукты красного цвета.
Не все птицы умеют летать.
1<span>035 в 6 вот кароче как-то так. В десятичную сначала потом складываешь, потом делением на 6.</span>