Program n1;
Var E, a: Real;
N, i: Integer;
Begin
Write('N='); ReadLn(N);
E:=1;
For i:=1 To N Do
Begin a:=a/i;
E:=E+a
End;
WriteLn('E=', E)
End.
Про синтаксис сказать ничего не могу, вроде правильно
объем вычислен верно, а при вычислении площади ты вичислил только боковую площадь цилиндра, и забыл про круглые торцы, их тоже надо прибавить, т.е. S:=2*pi*r*h+2*pi*r*r
Верный ответ 4)
if a mod 2 = 0 (если a поделилось без остатка на два)
then wtire('Да') (тогда выведи на экран Да)
else write('Нет'); (Иначе -- нет)
Так - же верен ответ 3) Он просто обратный 4)
<span>технологических
hhhhhhhhhhhhhhhhhhh</span>
Няштяяяк, завидую наичернейше (у нас инета нет там хD)