ПОЖАЛУЙСТА, ПОМОГИТЕ! ПАСКАЛЬ!1. Задать случайным образом 10 чисел от 22 до
ПОЖАЛУЙСТА, ПОМОГИТЕ! ПАСКАЛЬ!
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, если Xlt;=-9 X/10, если Xlt;=-9
Y = X-8, если -9 3*X, если Xgt;=9 X/10, если Xgt;=9
7.Напечатать малюсенькие английские буковкы в столбик от "z" до "а".
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] gt; 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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.