Поищи в поиске системный блок
это и не информация вовсе
Не уверен, правильно ли вас понял. Если что, пишите.
Sub CommandButton1_Click()
' Dim x, a, b, c, y As Double
x = 5.2319
a = -2.9565
b = 0.8204
c = 0.05
y = -Exp(b) + (a ^ 2 - Sin(3 * (x) ^ 3) ^ 2) / (Sqr(b ^ 2 - c) + x ^ (1 / 3))
MsgBox y
End Sub
Вот так у меня выдает правильный ответ
Uses crt;
var a:array [1..1000] of integer;
n,i,k,p:integer;
begin
writeln('Введите количество домов ');
readln(n);
writeln('Вводите через пробел число жителей каждого дома ');
for i:=1 to n do
begin
read(a[i]);
if i mod 2=1 then k:=k+a[i]
else p:=p+a[i];
end;
writeln;
if k>p then writeln ('В нечетных домах жителей больше ')
else writeln('В четных домах жителей больше ');
end.
Var n, k, c : integer;
Begin
Readln (n) ;
K:=0;
While c