1) Алфавит
Цифры
2) 2,3,4
3) 10011= 1*1+1*2+1*2в4=1+2+16=19
254=4*1+5*8+2*8во2=4+40+128=172
вроде бы правильно
#include <iostream>
using namespace std;
int main()
{
int res=0,a[100],n;
cout<<"Input N"<<endl;
cin>>n;
cout<<"Input elements."<<endl;
for (int i=0;i<n;i++)
cin>>a[i];
for (int i=0;i<n-1;i++)
if (((a[i]>=0) && (a[i+1]<0)) || ((a[i]<0) && (a[i+1]>=0)))
res+=1;
cout<<res;
return 0;
}<span>
</span>
Var N,M,R,S:Array[1..20] of integer; i,min,q,k,max:integer;
begin
Randomize;
max:=-200; min:=200;
writeln('1 массив');
for i:=1 to 20 do begin
N[i]:= random(100)-50;write(N[i]:4);end;writeln;
writeln('2 массив');
for i:=1 to 20 do begin
M[i]:= random(100)-50;
write(M[i]:4);end;writeln;
writeln('массив Суммы');
for i:=1 to 20 do begin
S[i]:= N[i]+M[i];
if max < S[i] then begin
max:=S[i];q:=i;end;
write(s[i]:4);end;
writeln;
writeln('массив Разности');
for i:=1 to 20 do begin
R[i]:= N[i]-M[i];
if min > S[i] then begin
min := S[i];k:=i;end;
write(R[i]:4);end;writeln;
writeln('максимальный ' , max, ' его индекс ',q);
writeln;writeln('минимальный ' , min, ' его индекс ',k);
<span>end.</span>
Var
c:char;
k:integer;
FlagBlank:boolean;
begin
Read(c);
case c of
'К','к':begin k:=1; FlagBlank:=True end;
' ':begin k:=0; FlagBlank:=False end;
'.':k:=0;
else begin k:=0; FlagBlank:=True end
end;
while c<>'.' do begin
while (not FlagBlank) and (c<>'.') do
begin Read(c); FlagBlank:=(c=' ') end;
while Flagblank and (c<>'.') do
begin Read(c); FlagBlank:=(c=' ') end;
if UpCase(c)='К' then Inc(k);
end;
Writeln(k);
end.
