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

0 голосов
38 просмотров

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


Информатика (20 баллов) | 38 просмотров
Дано ответов: 2
0 голосов

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.

(18 баллов)
0 голосов

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

(266 баллов)