Вопрос по информатике:
ПОМОГИТЕ ПЛИИИИЗ!!!!!!!!!!
Напишите Pascal-программу которая удаляет символы из середины строки, притом если в строке четное кол-во символов, то удаляется 2 символа, а если нечетное кол-во, то 3 символа.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 19.11.2015 09:10
- Информатика
- remove_red_eye 6899
- thumb_up 7
Ответы и объяснения 1
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.
- 20.11.2015 12:24
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.