6.4.. Napisati program za računanje godina starosti.
Opis rješenja:
Opis programa:
Listing programa:
PROGRAM godine;
VAR
tg, gr, gs:Integer;
BEGIN
Write('Unesi tekucu godinu i godinu rodjenja :');
Readln(tg, gr);
gs := tg - gr; { orazlika tekuće i godine rođenja }
Writeln('Imate ', gs, ' godina');
READLN;
END.
Ispis na ekranu:
![](../../pascal_prir/064/064_izvedi/06412005.gif)
Index
|
![](../../epp/000/Asistent.jpg) |