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