Bài 6. Câu lệnh điều kiện

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Mai Quỳnh Anh

Bài tập 1: Viết chương trình tính tổng S = 1+2+...+N.

Bài tập 2: Viết chương trình nhập vào N số nguyên từ bàn phím. Hãy tính và in ra màn hình tổng của các số vừa được nhập vào.

Bài tập 3: Viết chương trình nhập vào các số nguyên cho đến khi nào gặp số 0 thì kết thúc. Hãy đếm xem có bao nhiêu số chẵn vừa được nhập vào.

Bài tập 4: Viết chương trình tính số Pi với độ chính xác Epsilon, biết:

Pi/4 = 1-1/3+1/5-1/7+...

Bài tập 5: Viết chương trình nhập vào số nguyên N. In ra màn hình tất cả các ước số của N.

Sara Trang
30 tháng 10 2019 lúc 22:21

Program Sara_Trang;

Uses crt;

Var N,i,S:integer;

Begin

Clrscr;

Write('Nhap vao gia tri cua N :'); Readln(N);

S:=0;

For i:=1 to N do S:=S+i;

Writeln('Ket qua la :',S);

Readln

End.

Khách vãng lai đã xóa
Sara Trang
30 tháng 10 2019 lúc 22:23

Program Sara_Trang;

Uses crt;

Var N,S,i,X : Integer;

Begin

Clrscr; S:=0;

For i:=1 To n Do

Begin

Write('Nhap so nguyen X= '); Readln(X);

S:=S+X;

End;

Writeln(‘Tong cac so duoc nhap vao la: ‘,S);

Readln

End.

Khách vãng lai đã xóa
Sara Trang
30 tháng 10 2019 lúc 22:23

Program Sara_Trang;

Uses crt;

Var N,dem : Integer;

Begin

Clrscr;

dem:=0;

Repeat

Write('Nhap vao mot so nguyen N= '); Readln(N);

If N MOD 2 = 0 Then dem:=dem+1;

Until N=0;

Writeln(‘Cac so chan duoc nhap vao la: ‘,dem);

Readln

End.

Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
30 tháng 10 2019 lúc 22:33

quá dễ

bài 1:

uses crt;

var s,i,n:integer;

begin

clrscr;

write('n='); readln(n);

s:=0;

for i:=1 to n do

s:=s+i;

writeln('tong la: ',s);

readln;

end.

Bài 2:

uses crt;

var n,i,t:integer;

a:array[1..100]of integer;

begin

clrscr;

write('n='); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

{------------xuat-day---------------}

for i:=1 to n do

write(a[i]:4);

{------------tinh-tong---------------}

writeln;

t:=0;

for i:=1 to n do

t:=t+a[i];

writeln('tong cua day A= ',t);

readln;

end.

bài 3:

uses crt;
var n,i,dem:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i]=0 then exit
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln('so luong so chan ban vua nhap vao la: ',dem);
readln;
end.

bài 4:

Uses Crt;
Const Epsilon=1E-4;
Var Pi,t:real;
i,s:Integer;
Begin
Pi:=4; i:=1; s:=-1;
t:=4/(2*i+1);
While t>Epsilon Do
Begin
Pi:=Pi+s*t;
s:=-s; i:=i+1;
t:=4/(2*i+1);
End;
Writeln('So Pi = ',Pi:0:4);
Readln;
End.

Bài 5:

uses crt;

var n,i:integer;

begin

clrscr;

write('nhap n='); readln(n);

writeln('cac uoc cua ',n,' la:');

for i:=1 to n do

if n mod i=0 then write(i:4);

readln;

end.

Khách vãng lai đã xóa
Hải Hoàng
21 tháng 2 2022 lúc 21:12

Program Sara_Trang;

Uses crt;

Var N,i,S:integer;

Begin

Clrscr;

Write('Nhap vao gia tri cua N :'); Readln(N);

S:=0;

For i:=1 to N do S:=S+i;

Writeln('Ket qua la :',S);

Readln

End.


Các câu hỏi tương tự
huu nguyen
Xem chi tiết
Minh Ngọc
Xem chi tiết
Duy Thanh Bùi
Xem chi tiết
Duy Thanh Bùi
Xem chi tiết
Duy Thanh Bùi
Xem chi tiết
Snsbbdbd Xnxb
Xem chi tiết
Đào Cẩm
Xem chi tiết
đỗ quang quân
Xem chi tiết
LQmobi Acc
Xem chi tiết