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

Question

Информатика

Тура

2 июля, 08:10

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

+4

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