<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y,z):=ReadReal3;
var u:=Min((x+y+z)/2,x*y*z)+1;
Writeln(u)
end.
Класс '' виста ''' 'натура
Var n, i, sum, kol, age :integer; sr :real;
begin
sum:= 0; kol:= 0; readln(n); for i:= 1 to n do begin readln(age); sum:= sum + age; inc(kol); end; sr:= sum/kol; writeln(sr);
<span>end.</span>
#include <iostream>
using namespace std;
int main()
{
unsigned n;
cin >> n;
if (n > 0) {
for (int i = 2; i <= n; i += 2) {
cout << i << " ";
}
}
return 0;
}