Найти среднее арифметическое всех целых чисел от 1 до 1000
ассемблер линукс
решить

k1 - один катетk2 -  другой катетg - гипотенузаs -  площадь треугольникаязык програмирования: паскаль.vark1, k2, g, s : real; beginreadln (k1); readln (k2); g : = sqrt(sqr(k1) + sqr(k2)); writeln(g); s : = (k1 * k2) / 2 ; writeln(s)end.

pust' x chaek na pervom ostrove,a y na vtorom.

togda iz uslovia mozhno sostavit' sistemu:

x+y=79;

x-15-12=y+12;

togda y=x-39;

x+(x-39)=79;

x=59;

y=59-39=20.

otvet: 59 chaek na pervom ostrove, 20 na vtorom.

var

x: real;

begin

readln(x);

writeln(round(x));

end.

1)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do writeln(i*i);

end.

2)

var

i,n: integer;

begin

readln(n);

for i: =1 to 10 do writeln(i: 2,'*',n,'=',i*n: 3);

end.

3)

var i,n: integer; p: real;

begin readln(n); p : = 1; for i : = 1 to n do p : = p * i; writeln(p: 15: 0); end.

4)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do if (i mod 2=0) then writeln(i);

end.

5)

var

i,n,k: integer;

begin

readln(n);

k: =0;

for i: =1 to n do if (i mod 15=0) then k: =k+1;

writeln(k);

end.