Viết chương trình tính tổng của n số tự nhiên đầu tiên for do

• 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