с информатикой 9 класс «Персональне навчальне середовище»

1. Вывести на экран N чисел, в порядке чередования (например если N = 9, то ответом будет 1 9 2 8 3 7 4 6 5)
2. Найти наибольший общий делитель и наименьшее общее кратное двух чисел.
3. Вывести введенную строку в обратном порядке.
Решения на Pascal:
1.

var n, i: integer;
begin
  read(n);
  for i := 1 to n do
    if odd(i) then write(i div 2 + 1, ' ')
    else write(n - i div 2 + 1, ' ')
end.

2.

var a, b, a1, b1, t: integer;
begin
  read(a, b);
  a1 := a;
  b1 := b;
  repeat
    t := a mod b;
    a := b;
    b := t;
  until b = 0;
  writeln('НОД=', a);
  writeln('НОК=', a1 * b1 div a);
end.

3.

var s, s1: string;
    i: integer;
begin
  read(s);
  s1 := '';
  for i := length(s) downto 1 do
    s1 += s[i];
  write(s1)
end.

program Geom;

program Test_nn;

{$APPTYPE CONSOLE}

{$R *.res}

uses

 Math;

var

 a: array of Extended;

 n, i, c: Integer;

 x: Extended;

begin

 Write ('Размерность массива = ');

 ReadLn (n);

 SetLength (a, n);

 Randomize;

 for i := Low (a) to High (a) do begin

   a [i] := (Random (2001) - 1000) / 1000;

   Write (a [i] :7 :3);

 end;

 x := 1;

 c := 1;

 WriteLn;

 for i := Low (a) to High (a) do begin

   if a [i] > 0 then begin

     Write (a [i] :7 :3);

     x := x * a [i];

     Inc (c);

   end;

 end;

 WriteLn;

 WriteLn ('Среднее геометрическое = ', Power (x, 1/c) :20 :15);

 ReadLn;

end.