Var f: array[1..10] of integer; i,suma,sumb:integer; begin randomize; for i:=1 to 10 do begin f[i]:=random(10)+10; write(f[i],' '); end; suma:=0; sumb:=0; for i:= 1 to 10 do if f[i] mod 2 = 0 then suma:=suma+f[i]; else sumb:sumb+f[i]; writeln('Сумма четных: ',suma); writeln('Сумма нечетных: ',sumb); end.
var f: array[1..8] of integer; i,k,sumb:integer; begin randomize; for i:=1 to 8 do begin f[i]:=random(10)+10; write(f[i],' '); end; k:=0; sumb:=0; for i:= 1 to 8 do if f[i] mod 2 = 0 then k:=k+1; else sumb:sumb+f[i]; writeln('Количество четных: ',k); writeln('Сумма нечетных: ',sumb); end.
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016 // Внимание! Если программа не работает, обновите версию!
function MatrCreate(m,n:integer):array[,] of integer; begin Writeln('*** Исходный массив A[',m,',',n,'] ***'); Result:=MatrRandom(m,n,-50,50); Result.Println(4); Writeln(4*n*'-'); end;
procedure Matr2File(a:array[,] of integer; fn:string); begin var f:file of integer; ReWrite(f,fn); foreach var r in a.Rows do foreach var x in r do Write(f,x); f.Close end;
begin var m:=ReadlnInteger('Количество строк в массиве:'); var n:=ReadlnInteger('Количество столбцов в массиве:'); var a:=MatrCreate(m,n); var s:=ReadlnString('Имя файла:'); Matr2File(a,s); Writeln('Работа завершена') end.
Пишем последовательность чисел
1024 512 256 128 64 32 16 8 4 2 1
чтобы получилось 1025 нам нужно взять с этой последовательности число 1024 и 1 = 1024+1=1025,
те числа которые взяли, над ними пишем "1"
1 0 0 0 0 0 0 0 0 0 1
1024 512 256 128 64 32 16 8 4 2 1
вот вам и перевод 1025=10000000001
950
0 1 1 1 0 1 1 0 1 1 0
1024 512 256 128 64 32 16 8 4 2 1
950=1110110110
543
0 1 0 0 0 0 1 1 1 1 1
1024 512 256 128 64 32 16 8 4 2 1
543=1000011111
489=111101001