с заданием Подберите компьютер для выбранного вами персонажа (бабушка, офисныйработник, геймер) и создайте модель выбранных комплектующих в электронной таблице. Используя формулы, создайте модель вычисляющую автоматическиобшую стоимость компьютера.​

1.поименованная или иным образом идентифицированная часть компьютерной программы, содержащая описание определённого набора действий. Подпрограмма может быть многократно вызвана из разных частей программы. В языках программирования для оформления и использования подпрограмм существуют специальные синтаксические средства.

2. Локальные переменные делают возможной рекурсию. Переменные локальной области видимости используются, чтобы избежать проблем с побочными эффектами, которые могут произойти с глобальными переменными. Языки программирования, которые используют вызов по значению, выделяют каждой подпрограмме локальную область видимости из локальных переменных с локальной копией аргументов переданных ей.

3. program primer1; var a, n: integer; s:longint; procedure degree(x,y: integer; var st: longint); var i:integer; begin st :=1; For i:=1 to y do st:= st * x; end; begin {main} writeln('Введите два числа'); readln(a, n); degree(a,n,s); {Вызов процедуры} writeln('Результат: ', s); {Вывод результата} end.

4. При вызове процедуры с параметром она принимает передаваемые значения, а без параметров - она не может принимать значения. Глобальная переменная - это такая переменная, которая может быть использована во всей программе, в том числе в процедурах и в функциях.

язык программирования любой?

пишу на Python:

s = str(input())

s = sorted(s[:len(s)-1].split(', '))

for word in s:

print(word, ' ', end='')

Pascal:

var s, copy_s, word_s:string;

i, n, count:integer;

a:array of string ;

begin

count:=0;

write('Введите перечисление слов через запятую без пробелов, в конце поставьте точку: ');

readln(s);

copy_s:= s;

while pos(',', copy_s) > 0 do begin

n:= pos(',', copy_s);

delete(copy_s, n, 1);

count:=count+1;

end;

count:= count + 1;

SetLength(a, count);

for i:=1 to count-1 do begin

n:= pos(',', s);

word_s:= copy(s, 1, n-1);

delete(s, 1, n);

a[i]:=word_s;

end;

word_s:= copy(s, 1, length(s)-1);

a[count]:= word_s;

for i:=1 to count-1 do

if a[i] > a[i+1] then begin

word_s:=a[i];

a[i]:=a[i+1];

a[i+1]:=word_s;

end;

for i:=1 to count do

writeln(a[i]);

end.