Скласти алгоритми та записати програму. Дано ціле число .Якщо воно більше нуля,то додати до нього 1 ; в іншому разі відняти від нього 2 . Вивести отримане число
Const n = 5; var i: integer; a: array[1..n * 2 + 1] of integer; begin writeln('исходный массив: '); for i : = 1 to 2 * n do begin a[i] : = random(99) + 1; write(a[i] : 5); end; for i : = 2 * n + 1 downto n + 1 do a[i] : = a[i - 1]; a[n + 1] : = 0; writeln(); writeln('полученный массив: '); for i : = 1 to 2 * n + 1 do write(a[i] : 5); end.
1.
const
quantity = 18;
var
res, d: integer;
function sum(a, b: integer): integer;
begin
sum := a + b;
end;
begin
writeln('Введите число D: ');
readln(d);
res := sum(d, quantity);
writeln(res);
end.
2.
const
x = 1.0;
var
square, radius, Pi_num: real;
function ArcTan(X: Real): Real;
begin
ArcTan := (sin(x) / cos(x));
end;
function ray(square: real): real;
begin
ray := sqrt(square / Pi_num);
end;
begin
Pi_num := ArcTan(x) * 2;
writeln('Введите площадь окружности: ');
readln(square);
radius := ray(square);
writeln(radius);
end.