8.1..Izračunati sumu i proizvod prirodnih brojeva od a do b. Koristiti jednu i dvije FOR petlju.

Opis rješenja: Zadatak se rješava postavljanjem početnih vrijednosti za sumu (s:=0;) i proizvod (p:=1;). Ista FOR petlja se koristi za izračunavanje sume i proizvoda.

Dio programa:

  FOR i := a TO b DO
    BEGIN
      s := s + i;
      p := p * i;
    END;

Listing programa:

PROGRAM p08112046;
USES WinCRT;
VAR
  i,a,b,l,s:Integer;
  p:Real;
BEGIN
  Write('a,b,l=');
  Readln(a,b,l);
  p:=1;
  FOR i:=a TO b DO
    BEGIN
      p:=p*i;
      s:=s+i;
    END;
  Writeln('proizvod i suma od ',a,' do ',b,' djeljivih sa ',l,' je ', 'p=',p:4:0, '  s=',s);
END.

Za objašnjenje:

***

Listing programa

Opis

1

PROGRAM p08112046;

  

2

USES WinCRT;

  

3

VAR

  

4

  i,a,b,l,s:Integer;

  

5

  p:Real;

  

6

BEGIN

  

7

  Write('a,b,l=');

  

8

  Readln(a,b,l);

  

9

  p:=1;

  

10

  FOR i:=a TO b DO

  

11

      BEGIN

  

12

        p:=p*i;

  

13

        s:=s+i;

  

14

      END;

  

15

  Writeln('proizvod i suma od ',a,' do ',b,' djeljivih sa ',l,' je ', 'p=',p:4:0, '  s=',s);

  

16

END.