Question

Napisz program w Turbo Pascalu który spowoduje obliczenie n kolejnych liczb naturalnych. Liczba n zostaje podana z klawiatury.

Answer 1

program suma;

uses crt;

var a,s:word;

      i,n:byte;

BEGIN
s:=0;
clrscr;
writeln('Program do wprowadzania n liczb i obliczania ich sumy');
writeln;
repeat
write('Ile liczb chcesz wprowadzic[od 1 do 100]: ');
readln(n);
If (n>100) and (n<1) then writeln('Wprowadziles bledna ilosc liczb. Wprowadz jeszcze raz');
until (n<=100) and (n>=1);
FOR i:=1 to n do begin
                         write('Wprowadz ',i,' liczbe: ');
                         readln(a);
                         s:=s+a;
                         end;
writeln('Suma wprowadzonych liczb wynosi: ',s);
readln;
end.