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

Question

Информатика

Касьян

21 декабря, 01:25

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

+3

Ответы (2)

Знаете ответ на вопрос?

Афросим · Answer 1

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

Христина · Answer 2

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.