ПОЖАЛУЙСТА, ПОМОГИТЕ! ПАСКАЛЬ! 1. Задать случайным образом 10 чисел от 22 до 135....

Question

ПОЖАЛУЙСТА, ПОМОГИТЕ! ПАСКАЛЬ!
1. Задать случайным образом 10 чисел от 22 до 135. Напечатать те из них, которые больше 100.
2. Задать с клавиатуры А и N. Напечатать значение А в степени N.
3. Задать с клавиатуры N. Напечатать значение N! = 1*2*3*4*...*N.
4. Напечатать большие русские буквы в строчку через 2 пробела.
5. Напечатать маленькие русские буквы в 2 строчки: от "я" до "р", от "п" до
"а".
6. Ввести с клавиатуры 5 значений для Х. Вычислить и напечатать для каждого из них значение Y по правилу:
а) б)
3*X, если X<=-9 X/10, если X<=-9<br> Y = X-8, если -9 3*X, если X>=9 X/10, если X>=9
7.Напечатать маленькие английские буквы в столбик от "z" до "а".

Answer 1

PascalABC.NET

1)
 const     n = 10;
 var
   a : array [1..n] of integer;
   i : integer;
 begin 
  randomize; 
   for i := 1 to n do 
    begin 
    a[i] := 22 + random(114); 
    if a[i] > 100 then 
     writeln (a[i]); 
    end;
  end.

2)
 var 
  a,n,r,i : integer; 
   begin 
 r := 1; 
 readln (a,n); 
  for i := 1 to n do 
   r := r * a;
  writeln (r);
   end.

3)

 var 
 n,i,r : integer;
    begin 
 r := 1; 
 readln (n);
   for i := 1 to n do
    r := r *i; 
 writeln (r);
  end.

4)
 var 
 i : integer;
 begin
  for i := 192 to 223 do
   write(chr(i); ,'  '); 
end.

5)
 var 
 i : integer; 
   begin  
  for i := 255 downto 240 do
   write (chr(i),' ');  
  writeln();  
  for i := 239 downto 224 do 
 write (chr(i),' ');  
  end.

7)
 var 
 i : integer; 
begin  for i := 122 downto 97
do   writeln(chr(i)); 
end.