Ввести слово и напечатать его разделенным пробелами на три части: первые две буквы, середина слова, последние две буквы — Pascal(Паскаль)

Сразу необходимо выяснить, какой длины должно быть слово, чтобы удовлетворять условию нашей задачи. (2 + 1 + 2) = 5. Таким образом, слово, с которым можно проделать описанную в условии задачи операцию, должно состоять не менее чем из 5 символов.


Содержание
Задача 58.
Ввести слово и напечатать его разделенным пробелами на три части: первые две буквы, середина слова, последние две буквы.

{Сразу необходимо выяснить, какой длины должно быть слово, чтобы удовлетворять условию нашей задачи. (2 + 1 + 2) = 5. Таким образом, слово, с которым можно проделать описанную в условии задачи операцию, должно состоять не менее чем из 5 символов.}

program р38;
  uses crt;
  var i: byte;
      a:string;
begin
  clrscr;
  repeat
    writeln('a=');readln(a) ;
  until length(a)>=5;
  writeln (copy(a,1,2), '', copy (a, 3, length(a)-4), ' ',copy(a,length(a)-1,2));
  readln;
end.

Leave a Comment

3 + 1 =