Псевдокотың програмадан айырмашылығы
Ответы
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var s:='ДОСТОПРИМЕЧАТЕЛЬНОСТЬ';
// 1 3 5 7 9 1 3 5 7 9 1
// 2 4 6 8 + 2 4 6 8 +
var n:=Length(s);
var w:=Concat(Copy(s,6,5),s[4],s[12]); Write(w,' ');
w:=Concat(s[7],s[12],Copy(s,1,2),Copy(s,n-2,3)); Write(w,' ');
w:=Copy(s,11,6); Insert(Concat(s[8],s[4]),w,2); Write(w,' ');
w:=Copy(s,9,8); Insert(Concat(s[8],s[4]),w,4); Delete(w,4,1);
Write(w,' ');
w:=Concat(Copy(s,13,2),s[4],s[7],s[12],s[1],s[n]); Write(w,' ');
w:=Concat(Copy(s,6,5),s[7]); Write(w,' ');
w:=Concat(s[3],Copy(s,11,2),Copy(s,n-2,3),s[10]); Writeln(w)
end.
Результат
ПРИМЕТА РАДОСТЬ ЧИТАТЕЛЬ МЕЧТАТЕЛЬ ТЕТРАДЬ ПРИМЕР СЧАСТЬЕ
Внимание! Если программа не работает, обновите версию!
begin
var s:='ДОСТОПРИМЕЧАТЕЛЬНОСТЬ';
// 1 3 5 7 9 1 3 5 7 9 1
// 2 4 6 8 + 2 4 6 8 +
var n:=Length(s);
var w:=Concat(Copy(s,6,5),s[4],s[12]); Write(w,' ');
w:=Concat(s[7],s[12],Copy(s,1,2),Copy(s,n-2,3)); Write(w,' ');
w:=Copy(s,11,6); Insert(Concat(s[8],s[4]),w,2); Write(w,' ');
w:=Copy(s,9,8); Insert(Concat(s[8],s[4]),w,4); Delete(w,4,1);
Write(w,' ');
w:=Concat(Copy(s,13,2),s[4],s[7],s[12],s[1],s[n]); Write(w,' ');
w:=Concat(Copy(s,6,5),s[7]); Write(w,' ');
w:=Concat(s[3],Copy(s,11,2),Copy(s,n-2,3),s[10]); Writeln(w)
end.
Результат
ПРИМЕТА РАДОСТЬ ЧИТАТЕЛЬ МЕЧТАТЕЛЬ ТЕТРАДЬ ПРИМЕР СЧАСТЬЕ
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Создайте аниме ник для кс го
Автор: Галина-Юлия1292
Сделать блок схему и запись на алгоритмическом языке
Автор: Aleksandrovich_Mitoyan1138
Нужно написать каким браузером я пользуюсь и почему, ая не знаю что
Автор: ryadovboxing
перевести числа в двоичную систему счисления и произвести проверку
Автор: danceplusru
Чи є різниця між форматуванням усієї таблиці і окремих клітинок?
Автор: boldireve617
Напишите алгоритм и блок-схему к по информатике
Автор: macmakka
Внимание! Если программа не работает, обновите версию!
begin
var s:='ДОСТОПРИМЕЧАТЕЛЬНОСТЬ';
// 1 3 5 7 9 1 3 5 7 9 1
// 2 4 6 8 + 2 4 6 8 +
var n:=Length(s);
var w:=Concat(Copy(s,6,5),s[4],s[12]); Write(w,' ');
w:=Concat(s[7],s[12],Copy(s,1,2),Copy(s,n-2,3)); Write(w,' ');
w:=Copy(s,11,6); Insert(Concat(s[8],s[4]),w,2); Write(w,' ');
w:=Copy(s,9,8); Insert(Concat(s[8],s[4]),w,4); Delete(w,4,1);
Write(w,' ');
w:=Concat(Copy(s,13,2),s[4],s[7],s[12],s[1],s[n]); Write(w,' ');
w:=Concat(Copy(s,6,5),s[7]); Write(w,' ');
w:=Concat(s[3],Copy(s,11,2),Copy(s,n-2,3),s[10]); Writeln(w)
end.
Результат
ПРИМЕТА РАДОСТЬ ЧИТАТЕЛЬ МЕЧТАТЕЛЬ ТЕТРАДЬ ПРИМЕР СЧАСТЬЕ