Предмет: Информатика, автор: confessor1810

ПОМОГИТЕ ПЛИИИИЗ!!!!!!!!!!
Напишите Pascal-программу которая удаляет символы из середины строки, притом если в строке четное кол-во символов, то удаляется 2 символа, а если нечетное кол-во, то 3 символа.

Ответы

Автор ответа: danilbin
2
Program a;
var S : string;
i: integer;
begin
write('Введите данные строки');
readln(S);
if ((length(s) mod 2)=0) then Delete (S, round((length(s) - 2) / 2) + 1, 2);
if ((length(s) mod 2)<>0) then Delete (S, round((length(s) - 3) / 2) + 1, 3);
write('Итоговая строка: ');
for i:=1 to Length(s) do Write(s[i]);
end.

confessor1810: гениально! огромное спасибо!
Похожие вопросы
Предмет: Окружающий мир, автор: василийко1
Предмет: Русский язык, автор: milana2436983
Предмет: Алгебра, автор: missismn2018