1) Дано слово. Удалить его k-ый символ.

Question

Информатика

Егорыч

18 января, 00:36

1) Дано слово. Удалить его k-ый символ.

+4

Ответы (1)

Знаете ответ на вопрос?

Элладий · Answer 1

uses crt;

var

s: String;

k: Word;

begin

clrscr;

WriteLn ('Введите слово') ;

ReadLn (s) ;

WriteLn ('Введите номер символа, который нужно удалить') ;

ReadLn (k) ;

delete (s, k, 1) ;

WriteLn ('Вот что получилось = ', s) ;

ReadLn;

end.