Question

На мові Пасквль!!! 1) Користувач вводе 3 числа 2) Якшо введено не число то заміняєш його на рандомне число від 1 до 35 3) Запитуєш користувача що він хоче вивести на екран: "0" - суму 3-х чисел "1" - добуток "2" - різницю 1-го і 3-го "3" - добуток 1-го на 3-тє поділений на 2-ге число "4" - квадратний корін першого мінус кубічний корін 2-го і це все помножити на 3-тє число в 4 ступені "5" - закінчити програму "-1" - дати можливість ввести числа заново 4) після кожного вибору від 0 до -1 запитуєш знову

Answer 1

PascalABC.NET ₃.₆.₃.₂₅₇₇

Ответ:

• ##
• var b: boolean;
• repeat
•  if b then Writeln();
•  if b then b := False;
•  Print('Введите 3 числа:');
•  var a := ArrGen(3, i -> TryRead(i) ? i : Random(1,35));
•  Println($'Исходные числа:', a.JoinToString(', ') + '.');
•  repeat
•    Print('Что вывести на экран? (0, 1, 2, 3, 4, 5, -1):');
•    var x: integer;
•    x := TryRead(x) ? x : 100;
•    case x of
•      0: Println('  результат:', a.Sum);
•      1: Println('  результат:', a.Product);
•      2: Println('  результат:', Abs(a[0] - a[2]));
•      3: Println('  результат:', a[0] * a[2] / a[1]);
•      4: Println('  результат:', (a[0]**(1/2) - a[1]**(1/3)) * a[2]**4);
•      5: exit;
•      -1: b := True;
•      else Println('  неверный ввод');
•    end
•  until b
• until not b

Пример работы:

Answer 2

Ось програмний код на мові Pascal, що виконує описані вами дії:

pascalCopy code
program Calculator;
uses crt;

var
  num1, num2, num3, choice: Integer;
  input: String;
  randomNum: Integer;
  sum, product, difference, result: Real;

begin
  randomize;
  
  repeat
    writeln('Введіть три числа:');
    readln(input);
    
    val(input, num1);
    
    if num1 = 0 then
    begin
      randomNum := random(35) + 1;
      num1 := randomNum;
    end;
    
    readln(input);
    val(input, num2);
    
    if num2 = 0 then
    begin
      randomNum := random(35) + 1;
      num2 := randomNum;
    end;
    
    readln(input);
    val(input, num3);
    
    if num3 = 0 then
    begin
      randomNum := random(35) + 1;
      num3 := randomNum;
    end;
    
    writeln('Виберіть, що ви хочете вивести:');
    writeln('0 - Суму трьох чисел');
    writeln('1 - Добуток трьох чисел');
    writeln('2 - Різницю першого і третього чисел');
    writeln('3 - Добуток першого числа на третє, поділене на друге число');
    writeln('4 - Квадратний корінь з першого числа, мінус кубічний корінь з другого числа, помножене на третє число у четвертій ступені');
    writeln('5 - Закінчити програму');
    writeln('-1 - Ввести числа заново');
    
    readln(input);
    val(input, choice);
    
    case choice of
      0: begin
           sum := num1 + num2 + num3;
           writeln('Сума трьох чисел: ', sum);
         end;
      1: begin
           product := num1 * num2 * num3;
           writeln('Добуток трьох чисел: ', product);
         end;
      2: begin
           difference := num1 - num3;
           writeln('Різниця першого і третього чисел: ', difference);
         end;
      3: begin
           result := (num1 * num3) / num2;
           writeln('Добуток першого числа на третє, поділене на друге число: ', result);
         end;
      4: begin
           result := (sqrt(num1) - power(num2, 1/3)) * power(num3, 4);
           writeln('Квадратний корінь з першого числа, мінус кубічний корінь з другого числа, помножене на третє число у четвертій ступені: ', result);
         end;
      5: writeln('Програма завершена.');
      -1: writeln('Введіть числа заново.');