14.2.. Izračunati sumu dvocifrenih brojeva kod kojih je prva cifra manja od polovine druge cifre.

Opis rješenja: Provjera sume cifara se izvodi sa IF i < (j / 2) THEN. Suma se izračunava sa s := s + 10*i + j.

Listing programa:

PROGRAM p114212015;
USES
  WinCrt;
VAR
  i, j, s : INTEGER;
BEGIN
  s := 0;
  FOR i := 1 TO 9 DO
    FOR j := 0 TO 9 DO
    BEGIN
      IF i < (j / 2) THEN
        s := s + 10*i + j;
    END;
  WRITELN('suma dvocifrenih (prva cifra < druga/2) = ', s);
END.

Index