Информатика.Процесс неоднократного выполнения?

Question

Информатика: Информатика.Процесс неоднократного выполнения?​

global234 · Accepted Answer

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 buntil not b

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

1) Користувач вводе 3 числа 2) Якшо введено не число то заміняєш його на рандомне число від 1 до 35

Информатика.Процесс неоднократного выполнения?​

MOGZ ответил