составьте не менее трех вариантов програмы определния наименьшего из трех данных чисел

Question

Информатика

Вила

2 февраля, 03:52

составьте не менее трех вариантов програмы определния наименьшего из трех данных чисел

+1

Ответы (1)

Знаешь ответ?

Тоня · Answer 1

1)

program m;

uses crt;

var i, a, b, c, min:integer;

begin

clrscr;

readln (a, b, c);

if a
if b
if c
writeln (' ', min);

readkey;

end.

2)

program m;

uses crt;

var i, a, b, c, min, d:integer;

begin

clrscr;

readln (a);

min:=a;

for i:=1 to 2 do

begin

readln (a);

if a
end;

writeln (min);

readkey;

end.

3)

program m;

uses crt;

var i, a, b, c, min, d:integer;

begin

clrscr;

readln (a, b, c);

if a
if c
writeln (b);

readkey;

end.