<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ArrRandom(ReadInteger('n='),0,1).Println.Sorted.Println
end.
<u>Пример</u>
n= 15
0 0 1 1 0 1 1 1 1 0 0 1 1 0 1
0 0 0 0 0 0 1 1 1 1 1 1 1 1 1
А)10001100011
Б)101001110
В)10111001101.0011
Г)2322.52
Д)56F.8
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b):=ReadInteger2('Введите два числа через пробел:');
if (a>=0) and (b>=0) then (a,b):=(a*10,b*10)
else
if (a>=0) xor (b>=0) then (a,b):=(a*100,b*100)
else
if (a<0) and (b<0) and not a.Between(-7,-3) and
not b.Between(-7,-3-1) then (a,b):=(a*1000,b*1000)
else (a,b):=(a*10000,b*10000);
Println(a,b)
end.
var x: array[1..10] of real;
n: integer;
begin
for n:=1 to 10 do begin
x[n]:=power(3,n)-5;
writeln(x[n]);
end;
end.
Const
<span>n=20; </span>
<span>var a:array[1..n] of integer; </span>
<span>var i,d,s:integer; </span>
<span>begin </span>
<span>s:=0; </span>
<span>writeln('Введите число d'); </span>
<span>readln(d); </span>
<span>writeln('Введите массив'); </span>
<span>for i:=1 to n do begin </span>
<span>read(a[i]); </span>
<span>if a[i] mod d = 0 then s:=s+a[i]; </span>
<span>end; </span>
<span>writeln(s); </span>
<span>end. </span>