Предмет: Информатика,
автор: confessor1810
ПОМОГИТЕ ПЛИИИИЗ!!!!!!!!!!
Напишите Pascal-программу которая удаляет символы из середины строки, притом если в строке четное кол-во символов, то удаляется 2 символа, а если нечетное кол-во, то 3 символа.
Ответы
Автор ответа:
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.
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
Предмет: Русский язык,
автор: tsivkovskau
Предмет: Русский язык,
автор: олег710
Предмет: Русский язык,
автор: milana2436983
Предмет: Алгебра,
автор: missismn2018