Володарь
5 год назад
Разработайте и запишите программу нахождения минимума из трёх вводимых целых чисел a, b, c. Проверьте полученную программу на следующих тестах (1, 2, 3); (3, 2, 1); (2, 3, 1); (1, 3, 2)
ОТВЕТЫ
Onufrij
Oct 24, 2020
var a,b,c,min:integer;
begin
readln(a,b,c);
if a<b then min:=a else min:=b;
if c<min then min:=c;
writeln('min = ',min);
end.
Пример:
2 3 1
min = 1
begin
readln(a,b,c);
if a<b then min:=a else min:=b;
if c<min then min:=c;
writeln('min = ',min);
end.
Пример:
2 3 1
min = 1
666
Смежные вопросы:
