Составить алгоритм нахождения(это нужно делать в Паскале)
1) меньшего из двух чисел
2)меньшего из трех чисел
1) меньшего из двух чисел
2)меньшего из трех чисел
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program Minimum;
var
a, b: integer;
begin
write('введите 2 числа: ');
readln(a, b);
if a < b
then writeln('минимум: ', a)
else writeln('минимум: ', b);
end.
2. Меньшее из 3-х с помощью функции:
var
x1, x2, x3, mn: integer;
function min(a, b: integer): integer;
begin
if a < b
then min := a
else min := b
end;
begin
write('введите 3 числа: ');
readln(x1, x2, x3);
mn := min(x1, min(x2, x3));
writeln('минимум: ', mn);
end.