Опубликовано 6 лет назад по предмету Информатика от kuzyaev01

1 Дано слово ,,КОМПЬЮТЕР". Составить программу получения слов ,,КОМ", ,, РЕТРО'', ,, РОК", используя только буквы исходного слова.

2 Задана исходная строка ,,КОМПЬЮТЕР''. Поменять местами i и последний символ строки. Номер i задаётся пользователем .
3 Составить программу шифрования слова ,,ПАР", используя шифр Цезаря (со сдвигом на 4 позиции). составить в Паскале

Ответ

Ответ дан Аккаунт удален

*** 1 ***
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
var w:='КОМПЬЮТЕР';
Writeln(w[1:4]);
Writeln((w.Right(3).Inverse)+w[w.Length]+w[2]);
Writeln(w[w.Length]+w[2::-1])
end.

Результат
КОМ
РЕТРО
РОК

*** 2 ***
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
var w:='КОМПЬЮТЕР';
var i:=ReadInteger('i=');
Swap(w[i],w[w.Length]);
Writeln(w)
end.

Тестовое решение
i= 5
КОМПРЮТЕЬ

*** 3 ***
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
var w:='ПАР'; // исходное слово
var k:=4; // константа сдвига шифра Цезаря
var a:='АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯАБВГ';
for var i:=1 to w.Length do begin
    var p:=Pos(w[i],a);
    if p>0 then w[i]:=a[p+k]
    end;
Writeln(w)
end.

Результат
УДФ
1. Ответ
  
  Ответ дан Аккаунт удален
  
  Я решаю, когда есть время на это.
2. Ответ
  
  Ответ дан Gleb1Kosyrev
  
  Выкладывайте следующим вопросом. Посмотрим Ваши проблемы, хех.

Самые новые вопросы

Математика - 5 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Информатика - 5 лет назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 5 лет назад

Почему япония - лидер по выплавке стали?

Математика - 5 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 5 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.