fork download
copy 
  1. program q227143579;
  2. var
  3.   s0, s1: string;
  4. begin
  5.   ReadLn(s0);
  6.   ReadLn(s1);
  7.   if Pos(s1, s0) <> 0 then
  8.     Delete(s0, Pos(s1, s0), Length(s1));
  9.   Insert('@', s0, 1);
  10.   WriteLn(s0);
  11. end.
Success #stdin #stdout 0s 5392KB
comments (?)
stdin
copy 
qwertyuiop[
rty
stdout
copy 
@qweuiop[
https://ideone.com/IYCPeL
Дана строка символов. Удалить из строки подстроку, введенную с клавиатуры, а затем вставить после 1-го символа знак ' @' паскаль

https://o...content-available-to-author-only...l.ru/question/227143579
language:
Pascal (gpc 20070904)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!