giúp mình làm bài này với

H

huynhox_amk

chương trình pascal

*chỉ tính được trước năm 2014, thử làm vào máy, nếu được thì like ;)


program tinh_tuoi;
uses crt;
var tuoi: integer;
const a=2014;
begin
clrscr;
writeln('nhap nam sinh : ');
readln(tuoi);
writeln('tuoi hien tai la: ' ,a-tuoi);
readln;
end.
 
Last edited by a moderator:
You must log in or register to reply here.
Top Bottom