Module: الروتين الفرعي: الإجراءات والوظائف - 2


Problem

3/10

استدعاء وظيفة

Problem

اكتب برنامجًا يستخدم الدالة المحددة لحساب المتوسط ​​الحسابي لرقمين ويطبع كلمة YES إذا كان المتوسط ​​الحسابي للرقمين أكبر من 5 ، أو الكلمة NO بخلاف ذلك

إدخال البيانات: & nbsp؛ تم إعطاء رقمين طبيعيين كمدخلات للبرنامج (كلا الرقمين لا يزيدان عن 150). الأرقام مكتوبة في سطر واحد مفصولة بمسافة.

الإخراج: & nbsp؛ طباعة نعم أو لا

time 1000 ms
memory 256 Mb
Rules for program design and list of errors in automatic problem checking

Teacher commentary

Insert the missing code snippets
Pascal
Write the program below 
var a, b: integer;

function average(a, b: integer): real;
begin
    average := (a + b) / 2;
end;


begin 
end.

     

Program check result

To check the solution of the problem, you need to register or log in!