Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ с начала строки до тех пор, пока в строке не останется 1 символ

Question

Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ с начала строки до тех пор, пока в строке не останется 1 символ

Гость

Ответ(ы) на вопрос:

Accepted Answer

var st: string;begin write('строка: '); readln(st); repeat delete(st,1,1); writeln(st); until length(st)<2;end.