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

тема:

ОПЕРАТОР ЦИКЛА С ПАРАМЕТРОМ.

Answer 1

1)

Var

a:array[1..10] of integer;

i:integer; 

begin

for i:=1 to 10 do

read(a[i]);

randomize;

for i:=1 to 10 do

a[i]:=random(136)+22;

for i:=1 to 10 do

if a[i]>100 then writeln(a[i]);

end.

2.

var

a,n:integer;

begin

readln(a,n);

a:=a^n;

writeln(a);

end;

6.

var

x:array[1..5] of real;

i:integer;

begin

for i:=1 to 5 do

begin

 

read(x[i]);

 

if x[i]=9 then x[i]:=x[i]*3;

if x[i]>9 then x[i]:=x[i]/10;

 

writeln(x[i]); 

end; 

 end.