// PascalABC.Net 3.0, версия 1066 const mm=50; nn=50; var n,m,i,j,k1,k2,p:integer; s1,s2,s3:longint; a:array[1..mm,1..nn] of integer; begin Write('Число строк и столбцов массива: '); Read(m,n); Write('Значение p: '); Read(p); Writeln('*** Сгенерированный массив ***'); Randomize; s1:=0; s2:=0; s3:=0; k1:=0; k2:=0; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(101)-50; Write(a[i,j]:4); if a[i,j]>30 then s1:=s1+a[i,j]; if Odd(a[i,j]) then Inc(k1) else begin s2:=s2+a[i,j]; Inc(k2) end; if i+j=p then s3:=s3+a[i,j] end; Writeln end; Writeln('Сумма элементов массива, больших 30: ',s1); Writeln('Количество нечетных элементов массива: ',k1); Writeln('Среднее арифметическое четных элементов массива: ',s2/k2); Writeln('Сумма элементов массива c суммой индексов ',p,': ',s3) end.
PROGRAM MatrixMax var a : array [1..3, 1..4] of integer b : array [1..3] of integer Max, i, j : integer BEGIN crt; for i:=1 to 3 do begin for j:=1 to 4 do begin read (a[i, j]); // вводим элементы в массив a[1..3, 1..4] end; writeln; // делаем пустой перевод строки end; for i:=1 to 3 do begin b[i] := a[i, 1]; for j:=1 to 4 do begin if a[i, j] > b[i] then b[i] := a[i, j]; // находим максимальный элемент в каждой строке и записываем в b[1..3] end; end; Max := b[1]; for i:=1 to 3 do if b[i] > Max then Max := b[i]; // Находим максимальный элемент из максимальных элементов writeln (Max); // Выводим его на экран END.
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadInteger('Введите число:');
var (i,y):=(2,BigInteger(x));
while true do begin
y*=x;
Writeln(x,'^',i,'=',y);
i+=1
end
end.
Пример
Введите число: 2
2^2=4
2^3=8
2^4=16
2^5=32
2^6=64
2^7=128
2^8=256
2^9=512
2^10=1024
2^11=2048
2^12=4096
2^13=8192
2^14=16384
2^15=32768
2^16=65536
2^17=131072
2^18=262144
2^19=524288
2^20=1048576
2^21=2097152
2^22=4194304
2^23=8388608
2^24=16777216
2^25=33554432
2^26=67108864
2^27=134217728
2^28=268435456
2^29=536870912
2^30=1073741824
2^64=18446744073709551616
2^65=36893488147419103232
2^66=73786976294838206464
2^67=147573952589676412928
2^68=295147905179352825856
2^69=590295810358705651712
2^70=1180591620717411303424
2^200=1606938044258990275541962092341162602522202993782792835301376
2^201=3213876088517980551083924184682325205044405987565585670602752
2^202=6427752177035961102167848369364650410088811975131171341205504
2^203=12855504354071922204335696738729300820177623950262342682411008
2^204=25711008708143844408671393477458601640355247900524685364822016
2^205=51422017416287688817342786954917203280710495801049370729644032
2^206=102844034832575377634685573909834406561420991602098741459288064
2^207=205688069665150755269371147819668813122841983204197482918576128
2^208=411376139330301510538742295639337626245683966408394965837152256
2^209=822752278660603021077484591278675252491367932816789931674304512
2^210=1645504557321206042154969182557350504982735865633579863348609024