var<span> a, n, rez, i: integer;</span>
begin
write('Введите a: ');
readln(a);
write('Введите n: ');
readln(n);
if<span> a = 0 </span>then<span> rez := 1</span>
else begin
rez := n;
for<span> i := 1 </span>to<span> y - 1 </span>do<span> rez := rez * n;</span>
end;
writeln(rez);
end.
Переставляя по одной букве перейти от одного слова к другому.Ночь, ----, ----, ----, ----, День;Рота, ----, ----, ----, ----, По
валентина потанина
Ночь-дочь-дичь-динь-день
рота-роза-поза-пола-полк
бант-рант-рана-раса-роса-коса
Const
nn=50; { ограничение на длину строки/столбца }
var
i,j,m,n,k,s:integer;
a:array[1..nn,1..nn] of integer;
begin
Randomize;
Write('Количество строк в массиве '); Read(m);
Write('Количество столбцов в массиве '); Read(n);
s:=0;
k:=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]>0 then begin
s:=s+a[i,j];
k:=k+1
end
end;
Writeln
end;
Writeln('Ср. арифметическое положительных ',s/k)
end.
<u>Пример</u>
Количество строк в массиве 8
Количество столбцов в массиве 11
-11 27 -22 46 -34 -36 10 39 -5 15 -46
46 -48 -42 50 -14 12 -23 -29 -2 8 16
-18 -5 -31 21 -28 -38 20 33 9 24 4
43 18 9 -44 -22 25 37 39 -48 -16 -15
-15 12 46 49 12 -50 -10 42 47 46 33
23 -5 34 26 -5 42 -2 -32 12 -44 -19
-8 -41 -9 -9 -20 -16 3 -15 9 5 -19
47 -40 7 26 -26 0 20 -8 18 27 9
Ср. арифметическое положительных 25.4666666666667
3. 1111112, 6110, 4616, 738 или так? 111111(2), 61(10), 46(16), 73(8) ? если так То 46(16), 111111(2), 61(10), 73(8)
4. 10011001012(10) = 112454740264(8) = 254B3C0B4(16)
5. AF16(16) = 127426(8), или AF(16) ?? тогда 257(8)
6. 170(8) = 120(10), 1111011(2) = 123(10), 2 числа (121,122)
7. 1001012 и 3A16 тоже не понятно, если это 100101(2) и 3A(16), тогда 37 + 58 = 95
9. 199 224 228 224 237 232 229 Задание