Laizius
5 год назад
Даны четыре числа и надо вывести на экран наименьшее из них
ОТВЕТЫ
Поликарп
Oct 24, 2020
var
a, b, c: integer;
begin
readln(a, b, c);
if a > b then begin
if a > c then begin
writeln(a)
end
else begin
writeln(c)
end
end
else begin
if b > c then begin
writeln(b)
end
else begin
writeln(c)
end
end
end.
Что то на подобии этого
a, b, c: integer;
begin
readln(a, b, c);
if a > b then begin
if a > c then begin
writeln(a)
end
else begin
writeln(c)
end
end
else begin
if b > c then begin
writeln(b)
end
else begin
writeln(c)
end
end
end.
Что то на подобии этого
363
Смежные вопросы:
