Определить какая из точек находится ближе к началу координат(алгоритм ветвления).

[capta1n]

пожалуйста а отзыв не оставишь? весы под моей аваторкой

[pomoshnic]

Извиняюсь, нечайно начал два раза

[pomoshnic]

capta1n, в задаче 3 нехватает кое-чего:

Сообщение от capta1n

program an;
var
 str1 : string;
 k : byte;
begin

 writeln ('Vvedite stroku: ');
 readln(str1);
 str1:=str1+' ';

 repeat
   k:=pos ('ma',str1);
   if k<>0 then delete (str1,k,2)
 until k=0;

 writeln (str1);
 readln

end.

[capta1n]

ваше условие там не нужно

[pomoshnic]

Сообщение от capta1n

ваше условие там не нужно

А попробуйте ввести например:

[capta1n]

согласен - но причина кроется в структуре компилятора turbo pascal - free pascal логично понимает, если возващается в delete 0 - значит процедура не имеет смысла turbo удаляет первый и второй символы, что очень странно - ну ладно - тогда надо делать через while

[pomoshnic]

Точно! Если первые два символа удаляются тогда нужно вставить в начало 2 любых символа.

program an;
var
 str1 : string;
 k : byte;
begin
 writeln ('Vvedite stroku: ');
 readln(str1);
 str1:='}{'+str1;
 repeat
   k:=pos ('ma',str1);
   delete (str1,k,2)
 until k=0;
 writeln (str1);
 readln
end.