Цикл for выполняет 3 раза d+2*i
d=4*2=8
1)d=8+2*1=10
2)d=10+2*2=14
3)d=14+2*3=20
d=20
Program formula
var
x,y,z:integer;
begin
t:=0.5;
z:=6;
y:=t+2*z;
x:=(3*(y*y))/(4*z-2*(t*t));
writeln (x);
end.
Var A : Integer;
Begin
A:=123;
Writeln(A div 100+A div 10 mod 10+A mod 10);
end.
Ответ:
program arraysum;
const
D = 30; // размерность массива, можно менять на любое другое
var
B: array [1..D] of Integer;
i, s, c, A: Integer;
begin
Write ('A = ');
ReadLn (A);
Write ('Введите массив из 30 элементов:');
for i := 1 to D do begin
ReadLn (B [i]);
end;
// Randomize; // это заполнение случайными числами можно для отладки раскоментарить
// for i := 1 to D do begin
// B [i] := Random (21) - 5;
// Write (B [i] :3, ' ');
// end;
s := 0;
c := 0;
for i := 1 to D do begin
if B [i] < 0 then
s := s + B [i];
if (B [i] > 0) and (B [i] < A) then
Inc (c);
end;
WriteLn;
WriteLn ('Сумма отрицательных чисел =', s);
WriteLn ('Количество положительных меньших ', A, ' = ', c);
ReadLn;
end.
ГБВА=11011000 в двоичной=1*2^7+1*2^6+1*2^4+1*2^3=128+64+16+8=216 в десятеричной=D8 в шестнадцатеричной. Первый ответ подходит больше всего