<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
for var i:=1 to 100 do
if i.IsEven then Print(i)
end.
<u>Результат</u>
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50 52 54 56 58 60 62 64 66 68 70 72 74 76 78 80 82 84 86 88 90 92 94 96 98 100
formula = x * y*y + sqrt(x) - sqrt((x*x*x) + (z*z*z*z));
Var
a, b, h : integer;
Begin
readln(a, b, h);
Writeln('V = ', a * b * h);
Writeln('S = ', (a * b + a * h + b * h) * 2);
End.