Даны четыре числа и надо вывести на экран наименьшее из них
Ответы на вопрос
Ответил AnastasiaSPN
0
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.
Что то на подобии этого
Новые вопросы