Автор: dash 24.11.2003 14:57
Нужно написать строку ABBCCCDDDDEEEEEFFFFFF... ZZZZZ..ZZ
Не могу сообразить как это реализовать ???
помогите пжалста.
Автор: trminator 24.11.2003 21:13
Код
var i : char;
j : integer;
begin
for i:='A' to 'Z' do
for j:=1 to byte(i) - byte('A') + 1 do {Вместо byte(x) можно ord(x)}
write(i)
end.