1Что будет выведено на экран после выполнения программы? s := '123'; s := s + '0' + s; s := s + s; writeln ( s ); 6. Что будет выведено на экран после выполнения программы? s := '123456789'; s1 := 'abcdef'; s := Copy(s,5,2) + '0' + Copy(s1,3,3); writeln ( s ); . Программа должна считать, сколько раз в строке S встречается подстрока '12'. Какой оператор надо вставить вместо многоточия? Вводите ответ без пробелов. c := 0; repeat ... if p 0 then begin c := c + 1; Delete ( S, 1, p+1) end; until p = 0;

1. После выполнения первой программы будет выведено "12301231231".

2. После выполнения второй программы будет выведено "560def".

3. Вместо многоточия нужно вставить следующий оператор:

p := Pos('12', S);