<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=SeqRandom(5,-99,99).Select(t->0.1*t).ToArray;
a.Println;
var b:=SeqRandom(5,-99,99).Select(t->0.1*t).ToArray;
b.Println;
var c:=a.Zip(b,(p,q)->(p+q)/2).ToArray; c.Println
end.
<u>Пример</u>
-8.4 -8.3 -0.1 -6.3 9.4
3.3 -7.4 -1.4 9.5 9.6
-2.55 -7.85 -0.75 1.6 9.5
В стандартной кодировке KOI-8 символ размещается в одном байте.
На строку потребуется 70х1=70 байт.
На страницу - 30х70=2100 байт
На весь текст - 5х2100=10500 байт.
Ответ: 10500 байт
Замечание: Если кодировка двухбайтная (UNICODE), все числа следует удвоить.
var A,B,C,X:boolean;
begin
writeln('A':6,'B':6,'C':6,'X':6);
for A:= false to true do begin
for B:= false to true do begin
for C:= false to true do begin
X:= (A or not(B))or not(not(A) or C);
writeln(A:6,B:6,C:6,X:6);end;end;end;<span>end.</span>
Var sum,i : Integer;
Begin
sum:=0;
For i:=1 to 10 do sum:=sum+i;
Writeln(sum);
end.
Но проще всего это считать без циклов - одной строкой:
Begin
Writeln((10+1)*10 div 2);
end.
526 в восьмеричной
156 в шестнадцатеричной