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

Question

Информатика

Мишата

21 августа, 07:51

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

+3

Ответы (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.