- 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 S = 1+2+3+…+N. Với N là số nguyên nhập từ bàn phím? Sử dụng câu lệnh For..to..do
Các câu hỏi tương tự
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 s1]and[a mod i0]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]