СОСТАВЬТЕ НЕ МЕНЕЕ ТРЕХ ВАРИАНТОВ ПРОГРАММЫ ОПРЕДЕЛЕНИЯ НАИМЕНЬШЕГО ИЗ ТРЕХ ДАННЫХ ЧИСЕЛ.... Пожалуйста
5-9 класс
|
var
a, b, c, m : integer;
begin
read (a, b, c);
m := a;
if b < m then m := b;
if c < m then m := c;
writeln (m);
end.
var
a : array [1..3] of integer;
i, m : integer;
begin
m := a[1];
for i := 2 to 3 do
if a[i] < m then m := a[i];
writeln (m);
end.
var
a, b, c : integer;
begin
read (a, b, c);
if (a <= b) and (a <= c) then writeln (a)
else if (b <= c) and (b <= a) then writeln (b)
else writeln (c);
end.
Другие вопросы из категории
очень надо!! пожалуйста
Читайте также
сортировки по возрастанию значений трёх переменных : А,В,С . №3 Заданы Размеры а,в прямоугольного отверстия x,y,z кирпича. Определить пройдет ли кирпич через отверстие .
1. Составьте программу для определения большего из двух чисел х или у
2. Составьте программу для нахождения площади прямоугольника по заданным сторонам а и б
логических операций. Программа должна иметь дружественный интерфейс.
(ввод данных осуществляться в режиме диалога).