Napisati program sa funkcijom za izračunavanje zbira dvocifrenih brojeva koji nisu djeljivi ni sa 2 ni sa 3.

Listing programa:

PROGRAM suma_dvocifrenih_nisa2_nisa3;
FUNCTION sumni23:Real;
VAR
  i: Integer;
  s: Real;
BEGIN
  s := 0;
  FOR i := 10 TO 99 DO
    IF (i MOD 2 <> 0) AND (i MOD 3 <> 0) THEN
      s := s +  i;
  sumni23 := s;
END;

BEGIN
  writeln('Suma =  ', sumni23 );
  READLN;
END.

Index