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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Гость

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 который неуказан в задании , поэтому это лишнее !

Accepted Answer

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.