Версия для печати темы

Автор: Юлия 5.03.2007 20:58

Задача элементарная...
Но я на ней застряла

Напечатайте строку из К случайных символов.

Как?

Автор: Perfez 5.03.2007 21:17

 
var
k,l:int64;
Begin
ReadLn(k);
Randomize;
Repeat
Write(Chr(Random(255)));
l:=l+1;
Until l=k;
End.

Всё так просто...

Автор: Алена 5.03.2007 21:27

Не так все просто, как тебе кажется...

Randomize;
For i := 1 to K do begin
  write(chr(random(256-32) + 32));
end;

До 32 - непечатные символы...

Автор: Perfez 6.03.2007 2:37

Спасибо за информацию. Буду знать!