program sr repeat.pdf

(60 KB) Pobierz

36907373 UNPDF

program sr_repeat;

uses crt;

var

i,n:integer;

s,sr:real;

begin

clrscr;

write('n=');readln(n);

s:=0;

i:=0;

begin

repeat

s:=s+i;

i:=i+1;

until

i>=n;

end;

sr:=s/n;

writeln('sr=',sr);

readln;

end.

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika:

Zgłoś jeśli naruszono regulamin