Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.