8.1.. Izračunati sumu prirodnih brojeva u intervalu od k do n koji imaju cifru jedinica 7.

Opis rješenja:

Opis programa:

Listing programa:

PROGRAM p08112177;
{ izracunati sumu prirodnih brojeva u intervalu od k do n koji imaju cifru jedinica 7}
VAR              { deklarisanje promjenljivih }
  i, k, n, s : INTEGER;   { cjelobrojne promjenljive }
BEGIN
  WRITELN('suma od k do n sa cifrom jedinica 7');
  Write('k');
  Readln(k);
  Write('n');
  Readln(n);
  s := 0;

  FOR i:=k TO n DO        { ponavljaj za i=k do n - pocetak petlje }
    IF i MOD 10 = 7 THEN  { cifra jedinica 7? }
      s := s + i;         { cifra jedinica je 7, kumulativna suma }

    WRITELN ('suma = ', s);  { suma }
     
  READLN;
END.

Ispis na ekranu:

Index