Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Выводить на экран строку, состоящую из случайного (до 25)...
Выводить на экран строку, состоящую из случайного (до 25)...
Выводить на экран строку, состоящую из случайного (до 25) числа повторений заданного символа. Вывод окончить при повторении подряд двух строк с одинаковым числом символов.
1 | Автор: Asya_Teddy | 2013-05-15, 13:09   |  Репутация: [ + 0 ]
1 | Автор: Asya_Teddy | 2013-05-15, 13:09   |  Репутация: [ + 0 ]
uses crt;
var
c:char;
i,a,b:integer;
begin
randomize;
writeln('Enter char');
readln©;
a:=random(25)+1;
b:=0;
while a <> b do begin
b:=random(25)+1;
for i:=1 to b do
write©;
writeln;
end;
for i:=1 to b do
write©;
readkey
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2013-05-16, 07:02   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Выводить на экран строку, состоящую из случайного (до 25)...
Страница 1 из 11
Поиск: