Var x: Integer;
begin
readln(x);
writeln(((3/abs(x))+(exp((1/3) * ln(x))))/1);
end.
Var
a: array[1..10] of integer;
s, i: integer;
begin
for i:=1 to 10 do
begin
a[i]:= random(50)+1;
if (a[i] mod 2 = 0) and (i mod 2 = 0) then
s:=s+a[i];
writeln(a[i])
end;
writeln('Сумма: ', s)
<span>end.</span>
Var n:integer;
begin
readln(n);
if ((n div 10)+ (n mod 10) )=5 then
writeln('Сумма равно 5')
else writeln('Сумма не равна 5');
end.
VB.
Dim i As Integer
Dim Massiv() As Integer
For i = 0 To Massiv.Length - 1
Massiv(i) += 4
<span>Next</span>
Предполагаю, что вы забыли в начале добавить строчку #include "stdafx.h" - она должна быть в самом начале ещё перед #include <iostream>.
stdafx.h - грубо говоря это так называемык Precompiled headers предназначены для ускорения сборки проектов. Что в вашем случае не нужно. Лучше создайте новый ПУСТОЙ проект.
На счет первой ошибки, не уверен в чем проблема.