Помощь - Поиск - Пользователи - Календарь
Полная версия: Строка из случайных симовлов...
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Юлия
Задача элементарная...
Но я на ней застряла sad.gif

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

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


Всё так просто... smile.gif
Алена
Цитата
Всё так просто...
Не так все просто, как тебе кажется...

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


До 32 - непечатные символы...
Perfez
Спасибо за информацию. good.gif Буду знать! smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.