program sr_while.pdf

(60 KB) Pobierz
36907372 UNPDF
program sr_while;
uses crt;
var
i,n:integer;
s,sr:real;
begin
write('n=');readln(n);
s:=0;
i:=0;
while i<n do begin
s:=s+i;
i:=i+1;;
end;
sr:=s/n;
write('sr=',sr);readln;
end.

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika:

Zgłoś jeśli naruszono regulamin