Пункт главного меню «Программы» позволяет <span>получить доступ к установленным на компьютере программы.</span>
Const n=10; m=5;
var a:array[1..n,1..m+1] of integer;
i,j,k,sp,s:integer;
begin
Randomize;
writeln(' Результаты соревнований');
for i:=1 to n do
begin
s:=0;
for j:=1 to m do
begin
a[i,j]:=random(50)+50;
write(a[i,j]:4);
s:=s+a[i,j];
end;
a[i,m+1]:=s;
writeln(s:5);
end;
write('k='); readln(k);
sp:=0;
for i:=1 to n do
if a[i,m+1]>=k then sp:=sp+1;
writeln('sp=',sp);
end.
Пример:
Результаты соревнований
69 52 91 62 65 339
70 53 96 56 97 372
78 98 94 61 62 393
62 86 50 58 95 351
82 98 53 56 81 370
75 64 56 85 54 334
69 99 53 72 97 390
55 75 66 59 61 316
99 71 83 75 51 379
91 73 53 88 79 384
k=350
sp=7
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.Select(t -> LowCase(t) in ['а', 'б'] ? 2 * t : t)
.JoinIntoString('').Println
end.
<h2>А роза упала на лапу Азора</h2><h2>АА розаа упаалаа наа лаапу ААзораа</h2>
Var n : Integer;
Begin
Readln(n);
n:=(n mod 10)*1000+(n mod 1000 div 10)*10+(n div 1000);
Writeln(n);
end.
Ввод: 1234
Вывод: 4231
№7
172₈=1*8²+7*8¹+2*8⁰=64+56+2=122₁₀
2ЕА₁₆=2*16²+14*16¹+10*16⁰=746₁₀
101010₂=1*2⁵+0*2⁴+1*2³+0*2²+1*2¹+0*2⁰=32+0+8+0+2+0=42₁₀
10,1₂=1*2¹+0*2⁰+1*2⁻¹=2+0+0,5=2,5₁₀
243₆=2*6²+4*6¹+3*6⁰=72+24+3=99₁₀
№6
143,511₁₀=1*10²+4*10¹+3*10⁰+5*10⁻¹+1*10⁻²+1*10⁻³
143511₈=1*8⁵+4*8⁴+3*8³+5*8²+1*8¹+1*8⁰
143511₁₆=1*16⁵+4*16⁴+3*16³+5*16²+1*16¹+1*16⁰
1435,11₈=1*8³+4*8²+3*8¹+5*8⁰+1*8⁻¹+1*8⁻²