Вывести на экран числа от 5 до 20 Uses crt; Var N: integer; Begin For N:=5 to 20 do Writeln (N); End. Вывести на экран числа от 30 до 10 Uses crt; Var N: integer; Begin For N:=30 downto 10 do Writeln (N); End. №1. Составьте программу без использования команды downto, чтобы на экран выводились числа от 25 до 0 В строке For N:=0 to 25 do Writeln (_______); указать нужную формулу №2. Составьте программу, которая выводит на экран таблицу умножения. Вам необходимо записать в команду Writeln содержимое, которое будет выводить на экран данную таблицу умножения: for N:=2 to 9 do writeln ( );
1. For N:=0 to 25 do Writeln(25-N); 2. writeln(N,'*2 = ',N*2:2,' ',N,'*3 = ',N*3:2,' ',N,'*4 = ',N*4:2,' ',N,'*5 = ',N*5:2,' ',N,'*6 = ',N*6:2);