- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
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ự
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
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ự
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]<min then min:=a[i]; end; writeln(‘Tong: ‘,max+min);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.
1/
Program HCN;
Uses crt;
Var a,b,cv,dt:integer;
BEGIN
Clrscr;
Write(‘Hay nhap chieu dai: ‘); Readln(a);
Write(‘Hay nhap chieu rong: ‘); readln(b);
Cv:=(a+b)*2;
Writeln(‘Chu vi hinh chu nhat la: ‘,cv);
Dt:=a*b;
Writeln(‘Dien tich hinh chu nhat la: ‘,dt);
Readln;
end.
2/
Program Hinh_tron;
Uses crt;
Var r:integer;
Cv,dt:real;
Const pi=3.14;
BEGIN
Clrscr;
Write(‘Hay nhap ban kinh: ‘); Readln(r);
Cv:=2*r*pi;
Writeln(‘Chu vi hinh chu nhat la: ‘,cv:5:2);
Dt:=sqr(r)*pi;
Writeln(‘Dien tich hinh chu nhat la: ‘,dt:5:2);
Readln;
end.
3/
Program tong;
Uses crt;
Var n,s, i:integer;
BEGIN
Clrscr;
Write(‘Hay nhap n: ‘); Readln(n);
S:=0;
For i:= 1 tong do
S:= S+i;
Writeln(‘Tong la: ‘,s);
Readln;
end.
4/
Program tich;
Uses crt;
Var n,i:integer;
S:longint;
BEGIN
Clrscr;
Write(‘Hay nhap n: ‘); Readln(n);
S:=1;
For i:= 1 to n do
S:= S*i;
Writeln(‘Tich la: ‘,s);
Readln;
END.
5/
Program kt_tong;
Uses crt;
Var a,b:integer;
S:longint;
BEGIN
Clrscr;
Write(‘Hay nhap a: ‘); Readln(a);
Write(‘Hay nhap b: ‘); Readln(b);
s:=a+b;
If (s>0) and (s mod 3 = 0) then
Writeln(‘Tong s la so duong chia het cho 3’)
Else
Writeln(‘Tong s khong phai la so duong chia het cho 3');
Readln;
END.
-
cho a và b được nhập vào từ bàn phím. Viết chương trình in ra các số chia hết cho 2 trong đoạn a và b
21/09/2022 | 0 Trả lời