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
ЗАДАНИЕ НОМЕР 4
использовать Робот
алг
нач
нц пока справа свободно
вправо
кц
вверх
вправо
вниз
нц пока слева не свободно
вниз
кц
влево
нц пока сверху не свободно
закрасить
влево
кц
кон
ЗАДАНИЕ НОМЕР 5
использовать Робот
алг
нач
нц пока справа не свободно
закрасить
вниз
кц
вниз
нц пока снизу свободно
закрасить
вниз
кц
нц пока снизу не свободно
закрасить
влево
кц
нц пока снизу свободно
влево
кц
нц пока снизу не свободно
закрасить
влево
кц
кон
Ядерные арсеналы мировых держав. Стоит кому-то запустить боевую ракету с ядерной боеголовкой в сторону государства, также имеющего ядерные боеголовки на дежурстве, особенно во время политического обострения. Минимум получим ещё одну территорию отчуждения, вроде Чернобыля. В худшем, таких территорий будут десятки, тысячи. Это не беря в расчёт людские потери, как прямые, так и косвенные.
1.Общение
2.коммуникативное,социальное
3.контактирует,передает,взаимодействует
4.Общение помогает людям пополнять свой досуг,просто контактирую с людьми
5.Этикет
Program massiv;
uses crt;
const a:array[1..12] of byte=(1,3,2,3,0,9,4,5,6,7,8,2);
var i:byte;
b:array[1..12] of byte;
begin
clrscr;
write('Isxodnui massiv: ');
for i:=1 to 12 do
begin
write(a[i]:4);
b[i]:=a[i];
end;
writeln;
Write('Novui massiv: ');
for i:=1 to 12 do
begin
b[i]:= b[i]*4;
write(b[i]:4);
end;
readln;
end.