Module: Alt programlar: prosedürler ve işlevler - 2


Problem

3/10

Bir işlevi çağırmak

Problem

Verilen işlevi kullanarak iki sayının aritmetik ortalamasını hesaplayan ve iki sayının aritmetik ortalaması 5'ten büyükse EVET, değilse HAYIR kelimesini yazdıran bir program yazın.
Giriş verileri: Programa girdi olarak iki doğal sayı verilir (her iki sayı da 150'den fazla değildir). Rakamlar boşlukla ayrılmış tek satırda yazılır.

Çıktı: Yazdır EVET veya HAYIR

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!