Даны 3 числа а в с найти минимальное из них
Var a,b,c,min:real;
begin
write(a=);readln(a);
write(b=);readln(b);
write(c=);readln(c);
if aif c
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var a,b,c,min:real;
begin
write(a=);readln(a);
write(b=);readln(b);
write(c=);readln(c);
if aif c
end.