program a2;var a,b,c,min:real;beginwriteln(039;Введите три числа039;);readln(a,b,c);min:=a;if

Program a2;
var a,b,c,min:real;
begin
writeln('Введите три числа');
readln(a,b,c);
min:=a;
if b if c writeln('min=',min)
end.КАК РЕШАТЬ???????????????
А)а=10,b=5 и с =1
Б)а=10,b=5 и с =7
В)а=2,b=10,с=5

Dashenka 2019-07-25 08:13:17

А)а=10,b=5 и с =1Б)а=10,b=5 и с =7В)а=2,b=10,с=5

Витя 2019-07-25 08:15:00

все

Юрок Розночинцев 2019-07-25 08:17:47

так

Арсений Ранцан 2019-07-25 08:19:39

на данный момент исправлю

Дима Балабонкин 2019-07-25 08:25:18

наверное b < min и c < min?

Миша Оливалов 2019-07-25 08:31:04

Program a2;var a,b,c,min:real;beginwriteln('Введите три числа');readln(a,b,c);min:=a;if b

Оксана 2019-07-25 08:38:46

if c

Марина Шитенбург 2019-07-25 08:42:07

теперь точно все

Данил 2019-07-25 08:44:35

Добавил ниже

Кира Короенко 2019-07-25 08:49:09

спасибо!

• Кира Удовицкая
• Информатика
• 2019-07-25 08:11:42
• 0
• 1

1 ответ

Вован Скобинов 2019-07-25 08:19:04

A: min =1;
Б: min =5
В: min =2
var a,b,c,min:real;
begin
writeln('Введите три числа');
readln(a,b,c);
min:=a;
if blt;min then min:=b;
if clt;min then min:=c;
writeln('min= ' ,min);
end.