Вопрос по информатике:
1. Дано предложение. Подсчитать число пробелов стоящих на нечетных местах, и заменить такие пробелы на символ «*».
2. Дано слово, состоящее из количества букв кратного четырем. Поменять в нем буквы следующим образом: первую с четвертой, вторую с третьей, пятую с восьмой, шестую с седьмой и т.д. Например, из слова «карандаш» должны получить «аракшадн».
язык Pascal ABC
- 10.01.2018 12:46
- Информатика
- remove_red_eye 2208
- thumb_up 31
Ответы и объяснения 1
begin readln(s); s1 := ' '; s2 := '*'; sum := 0; for i := 1 to length(s) do if pos(s1, s) mod 2 = 1 then begin sum := sum + 1; insert(s2, s, pos(s1, s)); delete(s, pos(s1, s), 1); end; writeln(sum); writeln(s);end.
2.var s, s1, s2: string; i, a: integer;
begin readln(s); if length(s) mod 4 = 0 then begin for i := 1 to length(s) do begin if (i mod 4) = 1 then begin s1 := copy(s, i, 1); s2 := copy(s, i + 3, 1); Delete(s, i, 1); Delete(s, i + 2, 1); insert(s2, s, i); insert(s1, s, i + 3); end; if (i mod 4) = 2 then begin s1 := copy(s, i, 1); s2 := copy(s, i + 1, 1); Delete(s, i, 1); Delete(s, i, 1); insert(s2, s, i); insert(s1, s, i+1); end; end; end; writeln(s);end.
- 11.01.2018 02:57
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.