Niezalogowany (Zaloguj się)
WItaj Gościu! Możesz się teraz zalogować lub poprosić o członkowstwo na Forum Turbo Pascal Web Pag
  1.  
    program srednia; var a,b,c,d,e:integer; srednia:real; begin writeln('podaj liczbe nr:1'); readln(a); ........................ writeln('podaj liczbe nr:5'); readln(e); srednia:=(a+b+c+d+e)15; writeln('liczby z których liczysz srednią to:+jest++,b,++,c++,d,++,e,++'); writeln('srednia wynosi:;srednia); readln; end.