Если между z и a умножение:
var z:array[1..13] of integer;
s,i:integer;
begin
s:=0;
for i:=1 to 13 do read(z[i]);
for i:=1 to 13 do
if i=5 then s:=s+z[i]*2
else if i=7 then s:=s+z[i]*4
else if i=10 then s:=s+z[i]*i
else s:=s+z[i]*z[i];
writeln(s);
end.

0 0

4 года назад

Сколько единиц и нулей в двоичной записи числа 98 . В системе счисления с некоторым основанием десятичное число 34 записывается

Полковник [7]

98₁₀ = 1100010₂

0 0

4 года назад

СРОЧНО ПОМОГИТЕ!!! Как обратить массив в Pascale ABC? (тоест 1 2 3 4 5 сделать 5 4 3 2 1

absord

Const N = 10;
var
a: array[1..N] of integer;
i: byte;
b: integer;
begin
 for i:=1 to N do
 read(a[i]);

 for i:=1 to N div 2 do begin
 b := a[i];
a[i] := a[N-i+1];
a[N-i+1] := b;
 end;

 for i:=1 to N do
 write(a[i],' ');

 writeln;
end.

0 0

4 года назад

Дано число а (1<а<=1.5). Среди чисел 1+1/2, 1+1/3, ... найти первое,меньше а

andry7610

Var a: real;
begin
readln(a);
a := Ceil(1/(a-1) + 1e-15);
writeln(a, ' -> ',1+1/a);
end.

0 0

4 года назад