4558206928

File Edit Searcłi Run Compile Debug Tools Options Window Help

■1-1

2=1T]

n=[ ■ 1

1

\EXAMPLES\EXECDEMO. PAS = S PROGRAMsPIERW.PAS

program pierwiastki; war

n,k,x : uord; suma : double; begin

Urite('Podaj wartość n : '); readln(n);

Write('Podaj wartość k : '); readln(k);

If n>k then begin

Writeln(' Blad : n>k f'); exit; end;

suma:=0.0; for x:=n to k do suma:=suma+sqrt C x); writeln;

Writeln('Suma pierwiastków liczb od n=’,n,' do k=',k/ wynosi : ' ,suma:15:5); end.

W •

- 1:1 -m

FI Help F2 Sawę F3 Open Alt+F9 Compile F9 Make Alt+F10 Local menu