100111 в 2 + 11001 в 2 = 1000000 в 2
1000000 в 2 - 100111 в 2 = 11001 в 2
Надеюсь тут не надо все подробно описывать.
Program asd;
Var A,B:array [1..250,1..250] of integer;
i,j,n,m,k: integer;
BEGIN
Write('Введите n: '); Readln(n);
Write('Введите m: '); Readln(m);
for i:= 1 to n do
begin
for j:= 1 to m do
begin
A[i,j]:=random(10);
write(A[i,j]:3);
end;
writeln;
end;
writeln;
for i:= 1 to n do
for j:= 1 to m do
begin
If A[i,j] mod 2=1 then inc(k);
end;
If n=m then
begin
Writeln('Транспонирование: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(A[j,i]:3);
B[i,j]:=A[i,j];
end;
writeln;
end; writeln;
end
else
Writeln('Кол-во нечетных элементов: ',k);
<span>END.</span>
1.+++-
2.++++
3.++++
4.+---
5.+--+
6.----
Var N, S: integer
BEGIN
write ('Vvedite N'); readln (N);
S := 0;
while N > 0 do
begin
N := N mod 10;
S := S + 1;
end
writeln (S);
if S mod 9 = 0 then writeln (N, 'kratno 9') else writeln (N, 'ne kratno 9');
END.