Напишите pascal-программу которая удаляет символы из середины строки, притом если в строке четное кол-во символов, то удаляется 2 символа, а если нечетное кол-во, то 3 символа.

295

348

Посмотреть ответы 2

Ответы на вопрос:

Нрататоаооаоп

Информатика

4,4(66 оценок)

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.