uses crt;
var i,n : integer;
s : longint;
Begin clrscr;
s:=1; i:=1;
Write('Nhap n='); readln(n);
While i < n then
begin
s:=s*i;
i:=i+1;
end;
write('Tich s=', s);
readln
end.
Uses crt;
Var i,n : integer;
s : real;
Begin
Clrscr;
Write('Nhap so n=');
Readln(n);
S:=1; i:=1;
While i<=n do begin s:=s*i; i:=i+1 end;
write('tich la', s);
Nhập thấy sai gì báo mình sửa cho
Câu 6:Tên nước Vạn Xuân có ý nghĩa gì?
Câu 1 Giải bài toán bằng cách lập hệ phương trình. Một công ty xây dựng nhận thầu 1công trình .khi làm dự toán kế hoạch hoàn thành với số ngày công thợ và thời gian cần hoàn thành theo hợp đồng,theo dự toán cho thấy :nếu bớt 5 công nhân thì phải kéo dài thêm 30 ngày nếu tăng thêm 3 công nhân thì hoàn thành sớm được 10 ngày .hỏi theo kế hoạch cần bao nhiêu công nhân và làm trong bao nhiêu ngày
Cho hai đường thẳng y=-2x (d1) và y=x+3 (d2) a.Vẽ b.Gọi A là giao điểm của hai đường thẳng trên ,B(2;11) và C (m;4).Tìm m để A,B,C thẳng hàng.
Thông số 110cc ghi trên xe máy biểu hiện ý nghĩa gì?
Giải giúp mình 2 bài này với ( giải chi tiết nha)
có những loại cân nào có quy tắc hoạt động giống lực kế và tại sao ở loại cân đó không chia độ theo niutơn mà lại chia độ theo đơn vị kilôgam
đặt vật AB = 9 cm trước thấu kính phân kì có tiêu cự f = -12 cm cách thấu kính một khoảng d = 24 cm. Tìm độ lớn của ảnh
Một ô tô và một mô tô cùng chạy trên một đoạn đường . Biết rằng vận tốc của ô tô hơn vận tốc của mô tô là 30km/h , và quãng đường ô tô chạy trong 3 giờ bằng 3/4 quãng đường mà mô tô chạy trong 7 giờ . Tính vận tốc của mỗi xe
Một vật có khối lượng 500g được ném lên cao theo phương thẳng đứng với vận tốc 5m/s ở vị trí cách mặt đất 8m. Lấy g=10m/s2 chọn gốc thế năng tại mặt đất a) tính động năng thế năng cơ năng của vật b)tìm độ cao cực đại mà vật đạt được c)xác định vận tốc của vật khi vừa chạm đất d)tìm vận tốc của vật khi động năng =1/2 thế năng
các em vẽ hộ thầy bài kẻ khẩu hiệu nhé đề kiểm tra học kỳ nhé
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến