8310 4155 2077 1038 519 259 129 64 32 16 8 4 2 1
0 1 1 0 1 1 1 0 0 0 0 0 0 1
8310 (10) =10000001110110 (2) в скобках указана система счисления
195(10)=11000011 (2) четыре единицы
26310 3288 411 51 6
26304 3288 408 48 0
-----------------------------------------
6 0 3 3 6
26310(10)= 63306 (8)
Const nx = 20;mx = 30;
var A:array[1..nx,1..mx]of integer; i,j,n,m,min,z:integer; sum:array[1..nx]of integer;
begin
write('Введите число строк и столбцов');Readln(n,m);min:=1000;
for i:=1 to n do begin
sum[i]:=0;
for j:=1 to n do begin
A[i,j]:= random(100)-50;
write(A[i,j]:5);sum[i]:= sum[i] + A[i,j];end;writeln;
if min > abs(sum[i]) then begin min := abs(sum[i]);z:=i;end;
end;writeln;for i:=1 to n do
writeln('i= ',i,' sum = ', sum[i]:4);writeln;
writeln('Ближе всего к нулю i= ',z,' sum = ', sum[z]:4);<span>end.</span>
В нижнюю часть вводите текст который проверяется на достаточное количество букв, в верхнюю часть вводите искомое слово. Программа различает прописные и строчные буквы.
<span>Саму программу можете увидеть Alt+F11
</span>
Var ar:array[1..100]of integer;
i,n:integer;
begin
read(n);
for i:=n downto 1 do
ar[i]:=i;
for i:=n downto 1 do
write(ar[i],' ');
end.