Разработайте и запишите программу нахождения минимума из трёх вводимых целых чисел a, b, c. Проверьте полученную программу на следущих тестах (1,2,3) ; (3,2,1) ; (1,3,2).

Question

Информатика

Алексий

26 мая, 11:30

Разработайте и запишите программу нахождения минимума из трёх вводимых целых чисел a, b, c. Проверьте полученную программу на следущих тестах (1,2,3) ; (3,2,1) ; (1,3,2).

+5

Ответы (2)

Знаете ответ на вопрос?

Тая · Answer 1

Var a, b, c : integer;

begin

read (a, b, c) ; / / вводим 3 числа

if (a < b) and (a < c) then writeln (a)

else if (b < a) and (b < c) then writeln (b)

else writeln (c) ;

end.

Северин · Answer 2

Var

a, b, c:integer;

begin

writeln ('Введите 3 числа') ;

readln (a, b, c) ;

if (a
if (c
if (b
end.