Var
S: string;
i: byte;
tmp: boolean;
begin
write('Введите строку: '); readln(S);
for i := 1 to Length(S) do
begin
if ((S[i] = '*') and (tmp = false)) then
begin
S[i] := '-';
tmp := true;
end;
if tmp = true then S[i] := '-';
end;
writeln(S);
end.
Переменная sum после выполнения программы будет равна 2.
1-корпус
2-блок питания
3 - процессор с кулером
4 вентилятор
5 ОЗУ
6 видеокарта
7 сетевая карта
8 звуковая карта
9 дисковод СD - DVD
10 дисковод для дискет
11 винчестер
12 материнская плата
Незнаю просто одно слово НЕЗНАЮ
const
n = 3;
var
s,i : integer;
begin
for i := 1 to n do
if odd(i) then
s := s + i * i * i
else
s := s + i * i;
writeln (s);<span>
end.</span>