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

Question

Информатика

Лианка

6 октября, 12:55

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

+3

Ответы (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.