Ответ:
наверно у тебя интернет плохо работает или виснет
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.
50 мінус 10 буде 40
50 плюс 40 буде 90
90 поділити на 3 буде 30
в одному ящику 30 деталей
2часа - 7200 сек.
Следовательно за 2 часа можно передать 3600 Мбит, что равняется 0,4 Гб