Đáp án: Viết chương trình tính tích các số từ 1 đến n vs n nhập vào từ bàn phím, n nguyên dương - Program BTH;uses crt;var n,ilongint;sword;begin clrscr; Repeat write(ʹNhap n ʹ);readln(n); If n mod 2=1 then writeln(ʹSo nhap khong hop le moi nhap laiʹ); until n>0; s=1; For i=1 to n do s=s*i; write(ʹTong day so tren la ʹ,s); readln;end

Program BTH;uses crt;var n,ilongint;sword;begin clrscr; Repeat write(ʹNhap n ʹ);readln(n); If n mod 2=1 then writeln(ʹSo nhap khong hop le moi nhap laiʹ); until n>0; s=1; For i=1 to n do s=s*i; write(ʹTong day so tren la ʹ,s); readln;end

program oken;uses crt;var n,i integer; t qword;begin clrscr; write(ʹnhap 1 so n ʹ); readln(n); t=1; for i=1 to n do t=t*i; Writeln(ʹtich cua cac so tu 1 den ʹ,n,ʹ ʹ,t); readln;end

Quốc Khánh

2 năm trước

Viết chương trình tính tích các số từ 1 đến n vs n nhập vào từ bàn phím, n nguyên dương .

Xem đáp án

46 lượt xem

2 câu trả lời

Phạm Phúc Thịnh

2 năm trước

Program BTH;
uses crt;
var n,i:longint;
s:word;
begin
clrscr;
Repeat
write('Nhap n: ');readln(n);
If n mod 2=1 then
writeln('So nhap khong hop le moi nhap lai');
until n>0;
s:=1;
For i:=1 to n do
s:=s*i;
write('Tong day so tren la: ',s);
readln;
end.

Thiên Phú

2 năm trước

program oken;
uses crt;
var n,i: integer;
t: qword;
begin
clrscr;
write('nhap 1 so n: '); readln(n);
t:=1;
for i:=1 to n do
t:=t*i;
Writeln('tich cua cac so tu 1 den ',n,': ',t);
readln;
end.