Chào mừng quý vị đến với website của ...
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tài liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
CẤP SỐ NHÂN
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Trần Văn Toàn
Ngày gửi: 15h:57' 11-05-2018
Dung lượng: 371 Bytes
Số lượt tải: 1
Nguồn:
Người gửi: Trần Văn Toàn
Ngày gửi: 15h:57' 11-05-2018
Dung lượng: 371 Bytes
Số lượt tải: 1
Số lượt thích:
0 người
program cap_so_nhan;
uses crt;
var i,x,y,z,ts:integer;
begin
write(`nhap so luong ban dau: `);readln(x);
write(`nhap so luong tang them cua moi phan tu theo thoi gian quy dinh: `); readln(y);
write(`nhap so luong thoi gian can tinh: `); readln(z);
ts:=x;
for i:=1 to z do
begin
ts:=ts+ts*y;
writeln(`so luong cua ngay thu `,i,`la: `,ts);
end;
readln;
end.
uses crt;
var i,x,y,z,ts:integer;
begin
write(`nhap so luong ban dau: `);readln(x);
write(`nhap so luong tang them cua moi phan tu theo thoi gian quy dinh: `); readln(y);
write(`nhap so luong thoi gian can tinh: `); readln(z);
ts:=x;
for i:=1 to z do
begin
ts:=ts+ts*y;
writeln(`so luong cua ngay thu `,i,`la: `,ts);
end;
readln;
end.
Các ý kiến mới nhất