2 в степени i = N
N=50
i=6 бит (так как 2^5= 32, а мы должны брать с избытком)
Var s:string;
i,j,l,min:byte;
begin
min:=255;
readln(s);
if s[1]='a' then j:=j+1;
s[length(s)+1]:=' ';
for i:=1 to length(s)+1 do
begin
if (s[i]='a') and (s[i-1]=' ') then j:=j+1;
if s[i]<>' ' then l:=l+1 else
begin
if s[i-1]<>' ' then
if min>l then min:=l; l:=0;
end;
end;
writeln('a) Slow kotorie nachinayutsa s "a" - ',j);
writeln('b) Dlina samogo korotkogo slova - ',min);
<span>end.</span>
Получение - выходим на улицу, чтобы узнать погоду.
Хранение - животные хранят некую информацию, например, они помнят место своего обитания.
<em>// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrInteger(ReadInteger('n=')).Pairwise.All(t->t[0]<=t[1]);
b.Println;
end.
<u>Примеры</u>
n= 5
36 46 57 39 94
False
n= 7
9 11 23 64 79 120 500
True
Начало: program p1;
uses crt;
var a,b,c,d,e,f,g,p:integer;
begin
Ввод 7 чисел: read( a,b,c,d,e,f,g);
Происходит умнож: p:=a*b*c*d*e*f*g;
Вывод: write(p);
Конец: end.