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

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