
28.05.2010, 09:13
|
 |
I Like it!
|
|
Регистрация: 12.12.2009
Адрес: Россия, г. Новосибирск
Сообщения: 663
Версия Delphi: D6/D7
Репутация: 26643
|
|
Зачем 2 цикла????
Код:
var
s: String;
begin
s:='';
for i := 65 to 90 do
begin
s := s + Chr(i);
WriteLn(s);
end;
end;
|