Напишите пожалуйста Pascal-программу, которая удаляет 2 символа из строки с четным количеством символов и 3 симв. из строки с нечетным количеством символов. Заранее спасибо)
Напишите пожалуйста 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.
Не нашли ответ?
Похожие вопросы