8.1.. Saberi trocifrene brojeve koji završavaju sa 7.
Opis programa:
Listing programa: Da li je listing ispravan
Za objašnjenje:
*** |
Listing programa |
Opis |
1 |
PROGRAM djelj08111021; |
|
2 |
USES WinCRT; |
|
3 |
VAR |
|
4 |
i, s: Integer; |
|
5 |
BEGIN |
|
6 |
s := 0; |
|
7 |
FOR i:=100 to 999 do |
|
8 |
IF i MOD 10 = 7 THEN |
Zadnja cifra 7 |
9 |
s := s + i; |
Kumulativna suma |
10 |
Writeln('Suma trocifrenih cija je zadnja cifra 7 ', s); |
|
11 |
END. |
|
PROGRAM djelj08111021;
USES WinCRT;
VAR
i, s: Integer;
BEGIN
s := 0;
FOR i:=100 to 999 do
IF i MOD 10 = 7 THEN
s := s + i;
Writeln('Suma trocifrenih cija je zadnja cifra 7 ', s);
END.
Ispis na ekranu:
 |
 |
 |
 |
 |
 |
 |
