// Необходимо найти длины сторон всех прямоугольников,
// площадь которых равна заданному натуральному числу S.
// Стороны должны быть выражены натуральными числами.
// При этом решения, которые получаются перестановкой размеров сторон, считаются разными.
var S,i : word;
Begin
writeln ('Введите площадь прямоугольника');
readln (S);
writeln ('Возможные прямоугольники:');
for i:=1 to S do
begin
if (S mod i)=0 then
begin
writeln ('сторона а=',i,' сторона b=',S/i);
end;
end;
<span>End.</span>
function Pow(A, St: Integer) : Integer - объявляется функция Pow, которая принимает 2 аргумента A и St типа integer, а также сама функция возвращает значение integer
Далее объявляется переменная I типа Integer
begin - начало тела функции
Result := 1; - переменной Result присваивается значение 1
Далее идёт ветвление:
Если St = 0 , то переменной Result присваивается значение 1
В противном случае идёт цикл от I = 1 до St, где каждый шаг увеличивает переменную Result в A раз
словом end; заканчивается тело функции
Короче говоря, данная функция возводит число A в степень St
В идеале вот:
<span>uses ABCObjects, GraphABC;
const
x0 = 300;
y0 = 300;
K = 10;
var
i, j, x1, y1, x, y, n: integer;
x2, y2, fi, t: real;
begin
x := x0;
y := y0;
n := 500;
for j := 0 to K - 1 do
begin
fi := 2 * pi * j / K;
for i := 1 to n do
begin
t := 2 * pi * i / n;
x2 := 100*cos(t)+ 150;
y2 := 20*sin(t);
x1 := round(x2 * cos(fi) - y2 * sin(fi));
y1 := round(x2 * sin(fi) + y2 * cos(fi));
if i > 1 then
Line(x + x0, y0 - y, x0 + x1, y0 - y1);
x := x1;
y := y1;
end;
end;
new CircleABC(x0,y0,50,clyellow);
end<span>.</span></span>
1. Права доступа управляются с помощью утилиты chmod.
3. Фоновый процесс запускается, как и все остальные, только в конце ставится знак &Завершается процесс командой kill. Например:
kill -15 4213
где параметр -15 один из типов завершения программы, а 4213 его pid.
<span>-15 (sigterm) — попытка осуществить завершение работы так, как это произошло бы при нормальных условиях.
</span><span>-9 (kill) — принудительное завершение. Самый грубый метод.
Гарантированно «убивает» процесс без возможности его корректного
завершения<span>.
</span></span><span><span>(но есть и другие параметры)
</span></span>
<span><span /></span>
4. Сравнение двух чисел.
#!/bin/bash
read -p "Введите первое число : " a
read -p "Введите первое число : " b
if [ $a != $b ]
then
echo "Числа $a и $b не равны."
else
echo "Числа $a и $b равны."
program sd;
var i : integer;
s : longint;
begin
s := 1;
i := 10;
repeat
if (i mod 13 = 0) and (i mod 2 <> 0) then
s := s * i;
i:= i+1;
until i>99;
writeln('proizvedenie = ',s);
end.
