{program wczytuje 2 liczby liczy sume wyrazów miedzy nimi i dzieli przez ilosc tych wyrazów
np. l1=3 l2=6 to (3+4+5+6)/4}
program Untitled;
var
liczba1 : integer;
liczba2 : integer;
function dz(liczba1, liczba2 : integer) : real;
var
i, suma, tmp: integer;
begin
suma := 0;
{ zapewnienie ze liczba1 < liczba2 }
if liczba1 > liczba2 then
begin
tmp := liczba1;
liczba1 := liczba2;
liczba2 := tmp;
end;
for i := liczba1 to liczba2 do
begin
suma := suma + i;
end;
dz := suma / (liczba2 - liczba1);
end;
begin
write('podaj pierwsza liczbe: ');
readln(liczba1);
write('podaj druga liczbe: ');
readln(liczba2);
write(dz(liczba1, liczba2));
readln;
end.
e3Byb2dyYW0gd2N6eXR1amUgMiBsaWN6YnkgbGljenkgc3VtZSB3eXJhesOzdyBtaWVkenkgbmltaSBpIGR6aWVsaSBwcnpleiBpbG9zYyB0eWNoIHd5cmF6w7N3Cm5wLiBsMT0zIGwyPTYgdG8gKDMrNCs1KzYpLzR9Cgpwcm9ncmFtIFVudGl0bGVkOwp2YXIKICAgIGxpY3piYTEgOiBpbnRlZ2VyOwogICAgbGljemJhMiA6IGludGVnZXI7CgpmdW5jdGlvbiBkeihsaWN6YmExLCBsaWN6YmEyIDogaW50ZWdlcikgOiByZWFsOwp2YXIKICAgIGksIHN1bWEsIHRtcDogaW50ZWdlcjsKYmVnaW4KICAgIHN1bWEgOj0gMDsKICAgIHsgemFwZXduaWVuaWUgemUgbGljemJhMSA8IGxpY3piYTIgfQogICAgaWYgbGljemJhMSA+IGxpY3piYTIgdGhlbgogICAgYmVnaW4KICAgICAgICB0bXAgOj0gbGljemJhMTsKICAgICAgICBsaWN6YmExIDo9IGxpY3piYTI7CiAgICAgICAgbGljemJhMiA6PSB0bXA7CiAgICBlbmQ7CiAgICAKICAgIGZvciBpIDo9IGxpY3piYTEgdG8gbGljemJhMiBkbwogICAgYmVnaW4KICAgICAgICBzdW1hIDo9IHN1bWEgKyBpOwogICAgZW5kOwogICAgCiAgICBkeiA6PSBzdW1hIC8gKGxpY3piYTIgLSBsaWN6YmExKTsKZW5kOwoKYmVnaW4KICAgIHdyaXRlKCdwb2RhaiBwaWVyd3N6YSBsaWN6YmU6ICcpOwogICAgcmVhZGxuKGxpY3piYTEpOwogICAgd3JpdGUoJ3BvZGFqIGRydWdhIGxpY3piZTogJyk7CiAgICByZWFkbG4obGljemJhMik7CiAgICB3cml0ZShkeihsaWN6YmExLCBsaWN6YmEyKSk7CiAgICByZWFkbG47CmVuZC4K