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 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.

Answer 2

1. Для задания случайных чисел от 22 до 135 воспользуемся функцией Randomize и циклом For. Напечатаем числа, которые больше 100. ```pascal program RandomNumbers; var i, num: integer; begin Randomize; for i := 1 to 10 do begin num := Random(114) + 22; // генерируем случайное число от 22 до 135 if num > 100 then writeln(num); // печатаем числа, большие 100 end; end. ```

2. Для ввода значений А и N с клавиатуры и вычисления значения А в степени N используем функцию Power. ```pascal program PowerCalculation; var A, N: integer; begin write('Введите значение А: '); readln(A); write('Введите значение N: '); readln(N); writeln('A в степени N = ', Power(A, N)); end. ```

3. Для ввода значения N с клавиатуры и вычисления значения N! используем цикл For. ```pascal program FactorialCalculation; var N, factorial: integer; i: integer; begin write('Введите значение N: '); readln(N); factorial := 1; for i := 1 to N do begin factorial := factorial * i; end; writeln('N! = ', factorial); end. ```

4. Для печати больших русских букв через 2 пробела используем цикл For и функцию Chr. ```pascal program PrintRussianUppercase; var i: integer; begin for i := 1040 to 1071 do begin write(Chr(i), ' '); end; end. ```

5. Для печати маленьких русских букв в 2 строчки используем цикл For и функцию Chr. ```pascal program PrintRussianLowercase; var i: integer; begin for i := 1077 to 1103 do begin write(Chr(i), ' '); end; writeln; for i := 1072 to 1076 do begin write(Chr(i), ' '); end; end. ```

6. Для ввода 5 значений для Х с клавиатуры и вычисления значения Y по заданным правилам используем условные операторы. ```pascal program CalculateY; var i, X, Y: integer; begin for i := 1 to 5 do begin write('Введите значение Х: '); readln(X); if X <= -9 then Y := 3 * X else if (X > -9) and (X < 9) then Y := X / 10 else Y := X - 8; writeln('Y = ', Y); end; end. ```

7. Напечатаем маленькие английские буквы в столбик от "z" до "a" с помощью цикла For и функции Chr. ```pascal program PrintEnglishLowercase; var i: integer; begin for i := 122 downto 97 do begin writeln(Chr(i)); end; end. ```