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

Question

Информатика

Эллочка

3 июля, 14:48

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

+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.