Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program poslednacifra;
- {$APPTYPE CONSOLE}
- uses SysUtils;
- type cifra=0..9;
- var c:longint;
- cf:cifra;
- begin
- { TODO -oUser -cConsole Main : Insert code here }
- write('Zadajte cislo: ');
- readln(c);
- cf:= c mod 10;
- writeln(cf);
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
