Question

Ma poate ajuta cine cu primele 6 probleme

Answer 1

1)var a,b:integer;beginread(a);read(b);if a>b thenbeginfor b:=b to a dobeginif (b mod 2 = 0) then writeln(b);end;end;if a<b thenbeginfor a:=a to b dobeginif (a mod 2 = 0) then writeln (a);end;end;end.

2)var y,x,n:integer;beginread(n);y:=0;for x:=0 to n do beginy += x;end;writeln(y);end.

3)1 varianta :
var y,x,n:integer;beginread(n);for x:=1 to n dobeginif (x mod 2 = 0) then y += x;end;writeln(y);end.

2 varianta:

var x,n:integer;beginread(n);x:=0;repeatif (n mod 2 = 0) then x += n;n -= 1;until n=1;writeln(x);end.var x,n:integer;beginread(n);x:=0;repeatif (n mod 2 = 0) then x += n;n -= 1;until n=1;writeln(x);end.

4)var z,n:real;beginread(n);z:=0;repeatz += 1 / n;n -= 1;until n=0;writeln (z);end.

5)var z,n:real;beginread(n);z:=0;repeatz += 1 / (2*n);n -= 1;until n=0;writeln (z);end.

6)var z,n:real;beginread(n);z:=0;repeatz += 1 / (2*n - 1);n -= 1;until n=0;writeln (z);end.