Напишите пожалуйста Pascal-программу, которая удаляет 2 символа из строки с четным количеством символов и 3 симв. из строки с нечетным количеством символов. Заранее спасибо)
Третий символ или три символа?
три символа
Uses crt; var a:string; begin write('Введите строку: '); readln(a); if (length(a) mod 2) = 0 then delete(a,1,2) else delete(a,1,3); writeln('Конечная строка: ',a); end.
спасибо огромное)))