Составьте программу в паскале,в которой нужно найти наименьшее из двух чисел

2

Ответы и объяснения

2013-03-17T08:26:57+00:00

Program f1;

var a,b,max, min:real;

begin 

writeln ('vvedine chisla');

readln (a,b);

if (a>b) then (a:=max) else a:=min;

writeln ('max=',max , 'min=',min);

readln;

end.

2013-03-17T09:30:11+00:00

Program chislo;

var a,b,min:real;

begin 

writeln ('vvedine chisla a and b');

readln (a,b);

if (a>b) then min:=b ; else min:=a

writeln ( 'min=',min);

readln;

end.

 

В верхнем решении находим max который неуказан в задании  , поэтому это лишнее !