Визначте ознаки циклу Do..While. 1.Оператори тіла циклу виконуються доти, доки умова хибна 2.Програма - id1232930120200713 от s0f21 13.07.2020 04:07

Question

Информатика: Визначте ознаки циклу Do..While. 1.Оператори тіла циклу виконуються доти, доки умова хибна 2.Програма перевіряє умову циклу перед виконанням операторів тіла циклу 3.Оператори тіла циклу виконуються доти, доки умова істинна 4.Якщо умова приймає значення False, керування переходить до наступного оператора ​

s0f21 · Accepted Answer

Type   St = record     iquo: integer; {целая часть}     irem: integer; {числитель дроби}     idiv: integer; {знаменатель дроби}   end; function iMax(i, j: integer): integer; begin   if i j then iMax := i else iMax := j end; function iMin(i, j: integer): integer; begin   if i j then iMin := i else iMin := j end; function FR(i, j, k: integer): St; var   nmax, nmin: integer; begin   nmax := iMax(iMax(i, j), k);   nmin := iMin(iMin(i, j), k);   with Result do   begin     iquo := nmax div nmin;     idiv...

MOGZ ответил