Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
kraaasoootka
3 / 3 / 0
Регистрация: 18.01.2012
Сообщений: 67
1

Если длина строки кратна 4 то поменять местами первую и вторую части

26.01.2012, 09:36. Просмотров 779. Ответов 2
Метки нет (Все метки)

Ввести с клавиатуры строку символов. Признак окончания ввода строки - нажатие клавиши ввод. Программа должна определить длину введенной строки L. Если длина L кратна 4 то первая часть строки меняется меняется местами со второй.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.01.2012, 09:36
Ответы с готовыми решениями:

Поменять местами первую и вторую половину массива
Помогите решить задачки!!! Дан массив B размера 2n. 1)Поменять местами...

Поменять местами первую и вторую строку в текстовом файле
помогите с задачкой: поменять местами первую и вторую строку в текстовом файле.

Поменять местами первую и вторую половины массива, сохраняя порядок следования элементов в каждой половине
Дан массив, состоящий из четного числа элементов. Поменять местами первую и...

Если max матрицы равен сумме элементов первой строки, поменять местами первую строку с той, где находится max
Задана матрица. А (4,4). Если максимальный элемент матрицы равен сумме...

Дано слово, состоящее из четного количества букв. Поменять местами первую и вторую, третью и четвертую, пятую и шестую,., буквы
Дано слово, состоящее из четного количества букв. Поменять местами первую и...

2
BumerangSP
4288 / 1410 / 463
Регистрация: 16.12.2010
Сообщений: 2,941
Записей в блоге: 3
26.01.2012, 14:25 2
Лучший ответ Сообщение было отмечено kraaasoootka как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var
  L,s1: string;
  i,j: integer;
begin
 write('Введите строку: ');
 readln(L);
 writeln('Длина строки: ',length(L));
 j:=trunc(length(L)/2);
 if length(L) mod 4=0 then
  begin
   s1:=copy(L,j+1,j);
   delete(L,j+1,j);
   insert(s1,L,1);
   writeln(L)
  end
  else
   writeln('Длина не кратна 4');
end.
1
kraaasoootka
3 / 3 / 0
Регистрация: 18.01.2012
Сообщений: 67
26.01.2012, 14:40  [ТС] 3
BumerangSP, ура=*
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.01.2012, 14:40

Поменять местами вторую и предпоследнюю строки матрицы
В данном двумерном массиве размера n x m поменять местами вторую и...

Поменять местами первую и последнюю строки матрицы.
Прошу Вашей помощи так как сама в Паскале очень плохо разбираюсь.:wall:Заранее...

Поменять местами первую и последнюю строки матрицы
Дана матрица A. Нужно: 1) Поменять местами 1ю и последнюю строки матрицы....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru