
Landalar
4 год назад
Написать программу, котороя вводит три целых числа в переменные а, b и c и находит из них минимальное
ОТВЕТЫ

Diyana
Oct 24, 2020
var a,b,c,min:integer;
begin
readln (a,b,c);
if (a<b) and (a<c) then
min:=a;
if (b<a) and (b<c) then
min:=b;
if (c<a) and (c<b) then
min:=c;
writeln (min);
end.
begin
readln (a,b,c);
if (a<b) and (a<c) then
min:=a;
if (b<a) and (b<c) then
min:=b;
if (c<a) and (c<b) then
min:=c;
writeln (min);
end.
898
Смежные вопросы: