Вопрос от посетителя:
Даны 3 числа.Найти минимальное из них
Илюха отвечает:
uses crt;
var
a,b,c,min:integer;
begin
writeln(‘Введи три числа: ‘);
readln(a,b,c);
min:=a;
if b
if c
writeln(‘Наименьшее из этих чисел: ‘,min);
end.
Даны 3 числа.Найти минимальное из них
uses crt;
var
a,b,c,min:integer;
begin
writeln(‘Введи три числа: ‘);
readln(a,b,c);
min:=a;
if b
if c
writeln(‘Наименьшее из этих чисел: ‘,min);
end.