Viết chương trình tính tích của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập vào từ bàn phím.
Các câu hỏi tương tự
- Toán lớp 8
- Ngữ văn lớp 8
- Tiếng Anh lớp 8
viết chương trình tính tổng và tích của N số tự nhiên đầu tiên , với N là số tự nhiên được nhập từ bàn phím
Bài 2
program oken;
uses crt;
var n,s,i:longint;
begin
clrscr;
write['nhap n: ']; readln[n];
for i:=1 to n do
s:=s*i;
writeln['N!=',s];
readln;
end.
Bài 3
program oken;
uses crt;
var x,n:integer;
begin
clrscr;
write['nhap x: ']; readln[x];
write['nhap n: ']; readln[n];
writeln['x.n=',x*n]
readln;
end.
Bài 4
program oken;
uses crt;var a: array [1..100] of integer; i,n,max,min:integer;begin clrscr; write['nhap so n: ']; readln[n]; for i:=1 to n do begin write['a[',i,']: ']; readln[a[i]]; end; max:=a[1]; min:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i] else if a[i]