ПОЖАЛУЙСТА, ПОМОГИТЕ! ПАСКАЛЬ!
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" до "а".
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" до "а".
More Questions From This User See All
Answers & Comments
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.