Для существительных окно пользователь москва программа мышь одушевлённое неодушевлённое собственное нарицательное род склонение

окно: неодушевлённое, нарицательное, средний род, 2-е склонение.

пользователь: одушевлённое, нарицательное, мужской род, 2-е склонение.

москва: неодушевлённое, собственное, женский род, 1-е склонение.

программа: неодушевлённое, нарицательное, женский род, 1-е склонение.

мышь (живая): одушевлённое, нарицательное, женский род, 3-е склонение.

мышь (компьютерная): неодушевлённое, нарицательное, женский род, 3-е склонение.

(for) function sumf(i: integer): real;

begin

k: =1;

sumf: =1; {так как для i1 sum=1}

for i: =1 to n do (n-колличество членов, вводится с клавиатуры)

begin

k: =k*i;

f: =k;

sumf: =sumf+1/f;

end;

(while)

 

function sumw(i: integer): real;

begin

k: =1;

i: =1;

sumw: =1;

while i< =n do

begin

k: =k*i;

f: =k;

sumw: =sumw+1/f;

end;

 

(repeat)

function sumr(i: integer): real;

begin

k: =1;

i: =1;

sumr: =1;

repeat

k: =k*i;

f: =k;

sumr: =sumr+1/f;

i: =i+1

until  i< n;

 

 

ну, без понятия на каком языке писать - не решаема.

однако, на "метаязыке":

 

задать массив матрица[5,5];

получить ввод в ввод;

если ввод = 's', то {

сумма = 0;

x = 1;

продолжать, пока x < = 5  {

сумма =  сумма +  матрица[x,x];

x = x + 1;

}

вывести  сумма;

} иначе, если  ввод равен 'a' или 'b' или 'c', то {

x = 1;

продолжать, пока x < = 5  {

среднарифм = 0;

y = 1;

продолжать, пока y < = 5  {

среднарифм  =  среднарифм  +  матрица[x,y];

y  = y + 1;

}

вывести  среднарифм / 5;

x = x + 1;

}

}  иначе, если  ввод = 'm', то {

минимум =  матрица[1,1];

максимум =  матрица[1,1];

x = 1;

продолжать, пока x < = 5  {

y = 1;

продолжать, пока y < = 5  {

если  матрица[x,y]  <   минимум   то  минимум =  матрица[x,y];

если  матрица[x,y]  >   максимум    то  максимум =  матрица[x,y];

y  = y + 1;

}

}

вывести  минимум;

вывести  максимум;

}