Переделать из цикла repeat until в цикл while do var e,a,i,FACTc,x,k,s,n: real;
c:integer;
begin
write('Введите x');
readln(x);
a:=x;
c:=3;
i:=1;
FACTc:=1;
repeat
e:=power(x,c);
repeat
FACTc:=FACTc*i;
i:=i+1;
until i>c;
n:=e/FACTc ;
if (c=3) or (c=7) or (c=11) then k:=-n+s
else k:=n+s;
if c=3 then s:=k+a
else s:=k;
c:=c+2;
until c>13;
writeln ('s= ', s)
end.

А)
var    s:string;    mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице}    c:char;    i:longint; begin      read(s);      for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице}          mas[c]:=0;      for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)}          mas[s[i]]:=mas[s[i]]+1;      for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}          if(mas[c]=1) then                       writeln(c); end.

1) Компьютер - ( англ.- вычислитель ) - это универсальное у-во для хранения, обработки и передачи информации. В настоящее время его основная работа - управление различными информационными функциями.
2)Табличный процессор, т.к. эта программа относится к прикладному ПО
3) СИСТЕМЫ ПРОГРАММИРОВАНИЯ, но не СИСТЕМНЫЕ ПРОГРАММЫ
4) А.
5) С.
6)С. Текстовые и графические редакторы относятся к прикладному ПО
7) Сложно найти ответ, но я знаю определение:
ОС - система программ для управления ресурсами компьютера и организации взаимодействия с человеком.
8) Драйверы - программы, необходимые для работы разных устройств подключенных к компьютеру. Скорее Б
9)Не уверяю, но по моему А
10)К операционным системам? Этот вопрос я не поняла