Написать программу на языке Паскаль. Получить из слова "Каблучок" три любых слова

Question

Людмила Жукова

Информатика

24 апреля, 05:45

Написать программу на языке Паскаль. Получить из слова "Каблучок" три любых слова

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Фёдор Соколов · Answer 1

Program gg;

const s = 'Каблучок';

var i, k, n: integer;

begin for i : = 1 to 3 do begin n : = random (4) + 1; for k : = 1 to n do begin write (s[random (6) + 1]); end; writeln; end; end.