строки
pascal
вывести на экран следующие таблицы :
а
а б
а б в
а б в г
а б в г д
и так далее до Я.
помогите пожалуйста.
вывести на экран следующие таблицы :
а
а б
а б в
а б в г
а б в г д
и так далее до Я.
помогите пожалуйста.
Код:
program qwe;
var i,j:char;
begin
for i:='A' to 'Z' do
begin
for j:='A' to i do
write(j,' ');
writeln;
end;
end.
var i,j:char;
begin
for i:='A' to 'Z' do
begin
for j:='A' to i do
write(j,' ');
writeln;
end;
end.
[COLOR="white"]//ох и говнокоджеш[/COLOR]