В задание должны быть варианты расстановки символов азбуки Морзе, ты их не привёл(-а), так что решить это невозможно.
function fn(s:string):string;
var i:integer;
begin
i:=pos('минус',s);
while i>0 do
begin
delete(s,i,5);
insert('плюс',s,i);
i:=pos('минус',s);
end;
fn:=s;
end;
var b:string;
begin
readln(b);
write(fn(b));
end.
Пример:
минус + плюс - минус = 0
плюс + плюс - плюс = 0
Var i,j:integer;
Begin
for i := 1 to 9 do
for j := 1 to 9 do
if (i+j=i*j) then
writeln(10*i+j);
End.
Правильный ответ: 5,5 Кбайт
Объяснение:
45056 бит / 8 = 5632 байт
5432 байт / 1024 = 5,5 Кбайт