Первую треть слова разместить на месте третьей, вторую треть — на месте первой

@se7en94 · Регистрация: 05.12.2013

Author24 — интернет-сервис помощи студентам

с помощью procedure
Дано слово из 12 букв. Поменять местами его трети следующим образом:
а) первую треть слова разместить на месте третьей, вторую треть - на месте первой, третью треть – на месте второй;
б) первую треть слова разместить на месте второй, вторую треть – на месте третьей, третью треть – на месте первой.

(заранее благодарен)

@Puporev · 11.05.2014, 19:05

Вроде так

Pascal

uses crt;
procedure obmen(var s:string;k1,k2,k3:byte;var s1:string);
begin
s1:=copy(s,k1,4)+copy(s,k2,4)+copy(s,k3,4);
writeln(s1)
end;
 
var s,s1:string;
begin
repeat
writeln('Введите строку из 12 символов');
readln(s);
until(length(s)=12);
writeln('Задание 1');
obmen(s,5,9,1,s1);
writeln('Задание 2');
obmen(s,9,1,5,s1)
end.

@se7en94 0 / 0 / 0 Регистрация: 05.12.2013 Сообщений: 18
		1
	Первую треть слова разместить на месте третьей, вторую треть — на месте первой 11.05.2014, 16:47. Показов 2595. Ответов 1 Метки нет (Все метки) с помощью procedure Дано слово из 12 букв. Поменять местами его трети следующим образом: а) первую треть слова разместить на месте третьей, вторую треть - на месте первой, третью треть – на месте второй; б) первую треть слова разместить на месте второй, вторую треть – на месте третьей, третью треть – на месте первой. (заранее благодарен) 0

	11.05.2014, 19:05

Опции темы

Первую треть слова разместить на месте третьей, вторую треть — на месте первой

Решение