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

Question

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

Вероника Максименко Ученик (146), на голосовании 3 недели назад

1.Вывести на экран числа 6 до 17 обратно.
2.Напечатать буквы от 'A' до 'M' .

Answer 1

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.

Answer 2

 {Программа 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.

Answer 3

 program ReverseNumbers;

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

 program PrintLetters;

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

Answer 4

 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.

Answer 5

 {Program 1: Printing numbers from 17 to 6}  
program Numbers;  
var  
  i: integer;  
begin  
  writeln('Numbers from 17 to 6:');  
  for i := 17 downto 6 do  
    write(i, ' ');  
  writeln;  
end.  
 
{Program 2: Printing letters from A to M}  
program Letters;  
var  
  c: char;  
begin  
  writeln('Letters A to M:');  
  for c := 'A' to 'M' do  
    write(c, ' ');  
  writeln;  
end.