Найти алгоритм минимума из 3х целых чисел на паскале+ составить блок -схему. ПОЖАЛУЙСТА,ХОТЯ БЫ НА ПАСКАЛЕ СОСТАВЬТЕ!
Answers & Comments
emblerik
Var a, b, c, min : integer; begin read (a, b, c); if (a <= b) and (a <= c) then min := a else if (b <= a) and (b <= c) then min := b else min := c; write (min); end.
Answers & Comments
a, b, c, min : integer;
begin
read (a, b, c);
if (a <= b) and (a <= c) then min := a
else if (b <= a) and (b <= c) then min := b
else min := c;
write (min);
end.