Viết chương trình tính tổng n số tự nhiên đầu tiên với n được nhập từ bàn phím S 1 2 3 4 n
|
An toàn không? Giải thích lí do (Tin học - Lớp 6) 1 trả lời Chọn phát biểu đúng (Tin học - Lớp 8) 2 trả lời Biểu tượng của phần mềm soạn thảo là? (Tin học - Lớp 6) 1 trả lời Viết cú pháp của câu lệnh lặp While...do (Tin học - Lớp 8) 1 trả lời Cách trình bày trang trước khi in (Tin học - Lớp 7) 1 trả lời An toàn không? Giải thích lí do (Tin học - Lớp 6) 1 trả lời Chọn phát biểu đúng (Tin học - Lớp 8) 2 trả lời Biểu tượng của phần mềm soạn thảo là? (Tin học - Lớp 6) 1 trả lời Viết cú pháp của câu lệnh lặp While...do (Tin học - Lớp 8) 1 trả lời Cách trình bày trang trước khi in (Tin học - Lớp 7) 1 trả lời
Var i ,n : integer; S , T : real; Begin write ('n=') ; read (n) ; S:= 0; T:= 1; For i:= 1 to n do S:= S + i; T:= T * i; Writeln (' Tong cua ' ,n,' so dau tien la' , S ); Writeln (' Tich của ' ,n,' so dau tien la' , T ); Readln; End.
Program tong;Uses crt;var a,b,c:longint;Beginclrscr;Write('Nhap n: ');readln(a);For b:=1 to a doc:=c+b;writeln('Tong day so tren la: ',c);readln; end. Câu 1: uses crt;var n,i,s:longint;begin clrscr; write(‘N= ‘);readln(n); s:=0; for i:=1 to n do s:=s+i; writeln(‘s= ‘,s);readln end. Câu 2: uses crt;var n,i,s:longint;begin clrscr; write(‘N= ‘);readln(n); s:=1; for i:=1 to n do s:=s*i; writeln(‘s= ‘,s);readln end. Câu 3: uses crt;var n,s:longint;begin clrscr; s:=0; while s<=1000 Do begin inc(n); s:=s+n; end; writeln(‘n=’,n);readln end. Câu 4: uses crt;var n:longint;function nt(a:longint):boolean;var i:longint;begin i:=2; while(a>1)and(a mod i<>0)do inc(i); nt:=i=a;end;begin clrscr; write(‘N= ‘);readln(n); if nt(n) then writeln(‘n la so nguyen to’) else writeln(‘n khong la so nguyen to’);readln end. Câu 5: uses crt;var n:real;begin clrscr; write(‘Nhap diem mon tin: ‘);readln(n); if n>8 then writeln(‘Gioi’) else if n>6.5 then writeln(‘Kha’) else if n>5 then writeln(‘Trung binh’) else writeln(‘Kem’);readln end. Câu 6: uses crt;var n,max,min,i:longint; a:array[1..100000]of longint;begin clrscr; write(‘n=’);readln(n); min:=high(longint); for i:=1 to n Do begin write(‘a[‘,i,’]=’);readln(a[i]); if a[i]>max then max:=a[i]; if a[i] end.
1)viết chương trình tính tổng n số tự nhiên đầu tiên (với n được ngập từ bàn phím) bắng lệnh while...do Các câu hỏi tương tự
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 Các câu hỏi tương tự
|
