Который раз повторяю, указывайте на каком языке нужно писать программу. По классике написала на Pascal:
program ff;
var
x : integer;
begin
Write('Введите число ');
Readln(x);
if x mod 2 = 0 then writeln(x/2)
else writeln(sqr(x));
end.
Var n,i,s:integer;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do
if i mod 2 =0 then s:=s-i else s:=s+i;
writeln('s = ',s);
end.
Пример:
n = 10
s = -5
2) Web-браузер.--------------------------------
Вот код полученый при убирании описок и тп
var
a, b, c: integer;
begin
a := 2;
b := a * 3 + 1;
if b > a + 5 then a := 4;
if b = a + 5 then a := b - a;
c := a * b + a - b;
writeln('c=', c);
end.
вывод
c=33