Написать программу, в паскале, для нахождения наименьшего и наибольшего из трех чисел с помощью процедур

Question

Информатика

Август

18 сентября, 07:21

Написать программу, в паскале, для нахождения наименьшего и наибольшего из трех чисел с помощью процедур

+1

Ответы (1)

Знаешь ответ?

Миля · Answer 1

Program Pr1;

uses crt;

var a, b, c, max, min:integer;

begin

clrscr;

readln (a, b, c);

if a>b then max:=a

else max:=b;

if c>max then max:=c;

writeln ('max ', max);

if a
else min:=b;

if c
writeln ('min ', min);

end.