Выводить на экран строку, состоящую из случайного (до 25)...

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Выводить на экран строку, состоящую из случайного (до 25)...

Выводить на экран строку, состоящую из случайного (до 25) числа повторений заданного символа. Вывод окончить при повторении подряд двух строк с одинаковым числом символов.

№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 из 1
1

прикладная математика