8.1.. Saberi i pomnoži prirodne brojeve do N koji su djeljivi sa 3.

Za objašnjenje:

***

Listing programa

Opis

1

PROGRAM sp08111020;

 

2

USES WinCRT;

 

3

VAR

 

4

  i, n, s: Integer;

 

5

  p: Real;

 

6

BEGIN

 

7

  Write('n=');

 

8

  Readln(n);

 

9

  p := 1;

Početna vrijednost prozvoda

10

  s := 0;

Početna vrijednost sume

11

  FOR i:=1 to n do

FOR petlja od 1 do n

12

   IF i MOD 3=0 THEN

Da li je i parno

13

     BEGIN

 

14

       p := p * i;

Kumulativni prozvod

15

       s := s + i;

Kumulativna suma

16

     END;

 

17

  Writeln('proizvod i suma do ', n, ' djeljivih sa 3 je ', ' p= ', p:4:0, '  s = ',s);

 

18

END.

 

Listing programa:

PROGRAM sp08111020;
USES WinCRT;
VAR
  i, n, s: Integer;
  p: Real;
BEGIN
  Write('n=');
  Readln(n);
  p := 1;
  s := 0;
  FOR i:=1 to n do
   IF i MOD 3=0 THEN 
     BEGIN
       p := p * i;
       s := s + i;
     END;
  Writeln('proizvod i suma do ', n, ' djeljivih sa 3 je ', ' p= ', p:4:0, '  s = ',s);
END.

Ispis na ekranu:

Index