Напишите ссылку
Print ()
Input ()

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.

program qwe;

uses crt;

var  c, s, i: integer; y: real;

begins: =0; c: =0; for i: = -2 to 27 dobegins: =s+i; c: =c+1; y: =s/c; end; writeln('srednee arifmeticheskoe=',y);

readln; end.

вот так вот должна быть 1 . ты ни где не илпользовал(а) счетчик, а это неправильно=) в этом твоя и была ошибка=)

здесь идёт чередование чётных чисел с нечётными

ответ:     3)  с: \школа\биология\анатомия

на один уровень вверх,значит из природоведения  в биологию; далее в зоологию; затем поднялся опять ввёрх в биологию; потом спустился вниз в анатомию

(ответ номер 2)неподходит т.к.в папке биология находилось три раздела: природоведение,зоология,анатомия)

cоответственно если он закончил на разделе анатомия,то полный путь каталога,в котором оказался пользователь,будет заканчиваться соответственным разделом -- анатомия; что мы и наблюдаем в ответе номер 3)