Вопрос На языке pascal сделать программы следующим образом:

[рауф]

1.Вывести на экран числа 6 до 17 обратно.

2.Напечатать буквы от 'A' до 'M' .

 

[takata]

program ReverseNumbersAndLetters;

begin
// Вывод чисел от 6 до 17 в обратном порядке
for var i := 17 downto 6 do
Write(i, ' '

// Переход на новую строку
WriteLn;

// Вывод букв от 'A' до 'M'
for var ch := 'A' to 'M' do
Write(ch, ' '
end.

 

[ла ла ла]

program ReverseNumbers;

begin
for i := 17 downto 6 do
writeln(i);
end. program PrintLetters;

begin
for i := Ord('A&#39 to Ord('M&#39 do
write(Chr(i));
end.

 

[qqqqq]

{Программа 1: Вывод чисел от 17 до 6}
program Numbers;
var
i: integer;
begin
writeln('Числа от 17 до 6:'
for i := 17 downto 6 do
write(i, ' '
writeln;
end.

{Программа 2: Вывод букв от A до M}
program Letters;
var
c: char;
begin
writeln('Буквы от A до M:'
for c := 'A' to 'M' do
write(c, ' '
writeln;
end.

 

[sasha101444]

1
program PrintNumbersReverse;

var
i: integer;

begin
for i := 17 downto 6 do
writeln(i);
end.
2
program PrintLetters;

var
ch: char;

begin
for ch := 'A' to 'M' do
write(ch, ' '
writeln;
end.