Дали са в нарастващ ред

Публикувано на 25 март, понеделник от Данаил

Напишете процедура и функция, която по дадени три числа X, Y и Z определя дали са подредени в нарастващ ред. Функцията да връща резултата от проверката, а процедурата да го отпечатва на екрана.

По желание: Да се организира главната програма така, че да позволява няколко пъти да се въведат числа за тестване на функцията и процедурата.

Публикувано в 10в с етикети . Постоянна връзка.

One Response to Дали са в нарастващ ред

  1. kaloyan каза:
    25 март, понеделник в 10:57 
    program Project1;

function sr_ar(a,b,c:integer):real;
  begin
    result:=(a+b+c)/3;
  end;

var a,b,c:integer;
begin
  writeln('Vavedi chislata:');
  readln(a,b,c);
  writeln('Srednoto aritmetichno e ',sr_ar(a,b,c):0:2);

readln;
end.

Вашият коментар