derelict Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код:   var   str: string;   i, n: integer;   f: boolean; begin   write('Enter the string''s length: ');   readln(n);   randomize;   for i :=  0 to n do     str[i] := chr(ord('0') + random(ord('z') - ord('0') + 1));   writeln;   writeln('Generated string:');   writeln(str);   f := false;   for i := 0 to n do     if (str[i] = '5') or (str[i] = '7') then       begin         f := true;         break;       end;   if f then     write('Digits 5 or 7 are in the string')   else     write('Digits 5 or 7 are not in the string');   readln; end.   Всего записей: 232 | Зарегистр. 11-06-2006 | Отправлено: 03:45 06-12-2009

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование