Question

Pascal

Napisz program który oblicza sumę 20 kolejnych liczb od podanej od użytkownika dodatniej wartości funkcji wywołanej tak długo aż zostanie podane zero albo liczba ujemna.

Pliss bardzo potrzebuje.

Answer 1

Bardzo pokręcona treść zadania. Ja to rozumiem tak: podajemy liczby do momentu wystapienia liczby <=0, a program oblicza dla każdej z tych liczb sumę 20 liczb następnych (podajemy 3, oblicza sumę liczb od 4..23).

 

Mała uwaga dotycząca rozwiązania (tak, abyś zrozumiał skąd ten wzór):

Podajemy n i naszym zadaniem jest obliczyć sumę liczb:

n+1 + n+2 + n+3 + n+4 + n+5 + n+6 + n+7 + n+8 + n+9 + n+10 + n+11 + n+12 + n+13 + n+14 + n+15 + n+16 + n+17 + n+18 + n+19 + n+20 = 20n+210

 

Program:

Var
 n:longint;

Function suma(var n:longint):longint;
 Begin
  suma:=20*n+210;
 End;

Begin
 WriteLn('Podawaj kolejne liczby:');
 While true do
  Begin
   ReadLn(n);
   IF (n<=0) Then break;
   WriteLn(suma(n));
  End;
End.

 

Mam nadzieję, że chodziło o coś takiego :)