Viết chương trình tính tuổi của mỗi người biết năm sinh và tên được nhập từ bàn phím? Thanks you
2 câu trả lời
program hc;
uses crt;
var n, t:Integer;d:String;
begin
clrscr;
write('nhap ten':5);
readln(d);
write('nhap nam sinh');
ReadLn(n);
t:=2019-n;
writeln('tuoi cua':4,D,'la',t:4);
readln;
end.
var ns:lognint;
ten:string;
begin
write('Nhap nam sinh: '); readln(ns);
write('Nhap ten: '); readln(ten);
write('Tuoi cua ',ten,' cho den nam 2020 la: '2020-ns+1);
readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
