• Предмет: Информатика
  • Автор: alekseevalex
  • Вопрос задан 4 года назад

Нужно из слова 'строчка' сделать 3 других слова (копируя буквы из этого слова в другие переменные(через индексы букв )

Приложения:

Ответы

Ответ дал: raf1O5
0

program raf105;

var s,s1:string;

begin

s:= 'строчка';

s1:= s1 + copy(s,1,1) + copy(s,4,1) + copy(s,3,2) + copy(s,5,3);

writeln(s1);

s1:= '';

s1:= s1 + copy(s,1,1) + copy(s,4,1) + copy(s,3,2) + copy(s,6,2);

writeln(s1);

s1:= '';

s1:= s1 + copy(s,6,2) + copy(s,5,3);

writeln(s1);

s1:= '';

end.

Язык PascalABC

Похожие вопросы