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

Question

Информатика

Ивасик

20 декабря, 13:44

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

+5

Ответы (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.