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
|
|