Делимся знаниями и помогаем учиться

Якщо хто зможе допомогти, пишіть програму повністю,

Якщо хто зможе допомогти, пишіть програму повністю,

  • 2.Program test;
    var
    a, b: integer;
    begin
    writeln (Введіть перше число);
    readln (a);
    writeln (Введіть друге число);
    readln (b);
    writeln (Відповідь:, (a + b) / 2);
    end.

    3.Var
    a, b, c: integer;
    begin
    writeln (Введіть значення А.);
    readln (a);
    writeln (Введіть значення В.);
    readln (b);
    writeln (А =, a, # 10, B =, b);
    writeln (-----------------------);
    c: = a;
    a: = b;
    b: = c;
    writeln (A =, a, # 10, B =, b);
    end.

    4.
    Const
    p = 3.14;
    Var
    a: integer;
    begin
    writeln (Введіть довжину радіуса :);
    readln (a);
    writeln (2 * p * a);
    end.

    5.
    var
    a, b: integer;
    begin
    writeln (Введіть число A.);
    readln (a);
    writeln (Введіть число B.);
    readln (b);
    a: = a * a;
    b: = b * b;
    writeln (a + b =, a + b, # 10, ab =, ab, # 10, ba =, ba, # 10, a * b =, a * b, # 10, a / b =, a / b , # 10, b / a =, b / a);
    end.
  • 1)
    program privet;
    var
    a: string;
    Begin
    writeln (Як тебе звати?);
    readln (a);
    writeln (Привіт, a);
    End.
    2)
    program arifmet;
    var
    a, b, c: integer;
    writeln (Введіть А);
    readln (a);
    writeln (Введіть Б);
    readln (b);
    c: = (a + b) / 2;
    writeln (Середнє арифметичне =, c);
    End.
    Зараз допишу інші.

Предметы