Question

Выполните на компьютере все программы, приведенные в данном параграфе. 4. Составьте не менее трех вариантов программы определения наименьшего из трех данных чисел.

Answer 1

Program 1: var    a, b, c, smallest: integer; begin    write('Enter three numbers: ');    readln(a, b, c);    smallest := a;    if b < smallest then       smallest := b;    if c < smallest then       smallest := c;    writeln('The smallest number is: ', smallest); end.   Program 2: less
Copy code var    a, b, c, smallest: integer; begin    write('Enter three numbers: ');    readln(a, b, c);    smallest := a;    if smallest > b then       smallest := b;    if smallest > c then       smallest := c;    writeln('The smallest number is: ', smallest); end.   Program 3: less
Copy code var    a, b, c, smallest: integer; begin    write('Enter three numbers: ');    readln(a, b, c);    smallest := a;    if b < smallest then       smallest := b    else if c < smallest then       smallest := c;    writeln('The smallest number is: ', smallest); end.