Codred
5 год назад
program a2;var a,b,c,min:real;beginwriteln('Введите три числа');readln(a,b,c);min:=a;if bif cwriteln('min=',min)end.КАК РЕШАТЬ???????????????А)а=10,b=5 и с =1Б)а=10,b=5 и с =7В)а=2,b=10,с=5
ОТВЕТЫ
Aleksej
Oct 24, 2020
A: min =1;
Б: min =5
В: min =2
var a,b,c,min:real;
begin
writeln('Введите три числа');
readln(a,b,c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('min= ' ,min);
end.
Б: min =5
В: min =2
var a,b,c,min:real;
begin
writeln('Введите три числа');
readln(a,b,c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('min= ' ,min);
end.
410
Смежные вопросы:
