Question

Программа Паскаль. Составить программу, чтобы получились, как минимум 5 слов из слова романтика

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 241.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var s := 'романтика';

 s[:6].Println;

 Println(s[8] + s[1] + s[4:6]);

 Println(s[3:7] + s[9]);

 Println(s[8:5:-1]);

 Println(s[6] + s[1:3] + s[5])

end.

роман

кран

манта

кит

трон

Answer 2

Привет. Вот слова:

Роман

Кит

Кот

Ток

Манит

Answer 3

Вот пример программы на языке Паскаль, которая создает как минимум 5 слов из слова "романтика":

pascalCopy code
program GenerateWords;
uses crt;

const
  WordToGenerate = 'романтика';

var
  GeneratedWords: array[1..5] of string;
  i, j, k: integer;

begin
  clrscr;
  
  randomize;

  // Генерируем 5 слов
  for i := 1 to 5 do
  begin
    GeneratedWords[i] := '';

    // Выбираем случайную длину для текущего слова
    j := random(length(WordToGenerate)) + 1;

    // Формируем случайное слово
    for k := 1 to j do
    begin
      GeneratedWords[i] := GeneratedWords[i] + WordToGenerate[random(length(WordToGenerate)) + 1];
    end;
  end;

  // Выводим сгенерированные слова
  writeln('Сгенерированные слова:');
  for i := 1 to 5 do
  begin
    writeln(GeneratedWords[i]);
  end;

  readln;
end.

Программа случайным образом выбирает длину каждого сгенерированного слова от 1 до длины исходного слова "романтика". Затем она выбирает случайные буквы из исходного слова, чтобы создать новые слова. В результате будут сгенерированы 5 слов, которые выводятся на экран. Обратите внимание, что каждый запуск программы может давать разные результаты из-за случайного выбора букв и длин слов.