Anh em giúp mình bài này cái nhé
Em hãy viết chương trình để người sử dụng nhập các số khác 0 rồi tính và in ra màn hình tổng các nghịch đảo của các số này chương trình
kết thúc khi người sử dụng nhập số 0 đầu tiên
Viết công thức để người dùng nhập các số khác 0 rồi tính và in ra màn hình nghịch đảo số này công thức kết thúc khi người dùng nhấp số 0 lần đầu, nghịch đảo số n là 1 trên n
Mọi người giúp e bài này với ạ. Mai e phải thi rồi
II. Tự luận
Bài 1: Viết chương trình có sử dụng hàm đưa ra màn hình số lượng các số nguyên tố từ 20 đến 50
Bài 2: Viết chương trình có sử dụng hàm tính giai thừa của 1 số nguyên để đưa ra màn hình tổng 2 giai thừa
Bài 3: Viết chương trình có sử dụng hàm lũy thừa xy để đưa ra màn hình hiệu 2 lũy thừa
Bài 4: Viết chương trình có sử dụng hàm đưa ra màn hình các số chính phương từ 1 đến 100 ngăn cách nhau bởi dấu cách, biết số chính phương là số được tạo ra từ bình phương của 1 số nguyên khác
Viết chương trình nhập một dãy gồm n số thực từ bàn phím. Tính tổng và trung bình cộng các số đó. In kết quả tính được ra màn hình.
Mọi người giúp em bài này với ạ!
uses crt;
var a:array[1..100]of real;
i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day la: ',t:4:2);
writeln('Trung binh cong cua day la: ',t/n:4:2);
readln;
end.
Bài 1: Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các số
chẵn từ 0 đến N? (N là số tự nhiên được nhập vào từ bàn phím)
Gợi ý: Các số chẵn là các số chia 2 dư 0, ta có thể sử dụng mod để chia lấy phần
dư.
Bài 2: Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các số
chẵn từ 0 đến N, sao cho mỗi số chiếm 4 vị trí và 1 dòng có 15 số?
Gợi ý: Tương tự bài 4 (sử dụng thêm biến tạm để khi in ra 15 số thì xuống dòng).
GIải giúp mình mới mình đang cần gấp
Em hãy viết chương trình để người sử dụng nhập các số khác 0 giới tính và in ra màn hình tổng các nghịch đảo của các số này chương trình kết thúc khi người sử dụng nhập số 0 đầu tiên
Anh Em làm nhanh Cho mình nha
program bai1;
var a:array[1..100] of longint;
s,i,n:longint;
begin
repeat
write('N= ');readln(n);
until n>0;
for i:=1 to n do
begin
write('A[',i,']= ');readln(a[i]);
if a[1] =0 then exit;
end;
s:=0;
for i:=1 to n do
begin
if a[i]>0 then s:=s+1/a[i];
end;
writeln('Tong la ',s);
readln
end.
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên B. Độ dài của dãy n cũng được nhập từ bàn phím với (0<n<=100)? Tính tổng và đếm các số dương có trong dãy số? In kết quả ra màn hình
Program HOC24;
var n,d,i: integer;
B: array[1..100] of integer;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
d:=0; t:=0;
for i:=1 to n do
if b[i]>0 then
begin
d:=d+1;
t:=t+b[i];
end;
writeln('Tong cac so duong trong day so la: ',t);
write('Co ',d,' so duong trong day');
readln
end.
uses crt;
var b:array[1..100] of longint;
n,i,d,s:longint;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']: '); readln(b[i]);
if b[i]>0 then begin
inc(d);
inc(s,b[i]);
end;
end;
writeln('Tong cac so duong: ',s);
writeln('Co ',d,' so duong');
readln;
end.
Dùng câu lệnh while...do viết chương trình nhập các số nguyên kết thúc khi nhập bằng 0. Tính tổng các số chẵn, tổng các só lẻ đã nhập, rồi in kết quả ra màn hình?
Em hãy Viết chương trình để người sử dụng nhập các số khác 0 Rôi tính và in ra màn hình tổng các nghịch đảo của các số này chương trình kết thúc khi người sử dụng nhập số 0 đầu tiên
uses crt;
var s,i,a:longint;
begin
clrscr;
s:=0;i:=2;
write('nhap so thu 1:');readln(a);
while a<>0 do
begin
s:=s+1/a;
writeln('nhap so thu',i);readln(a);
i:=i+1;
end;
writeln('tong nghich dao la:',s:2:3);
readln;
end.
program bai1;
var a:array[1..100] of longint;
s,i,n:longint;
begin
repeat
write('N= ');readln(n);
until n>0;
for i:=1 to n do
begin
write('A[',i,']= ');readln(a[i]);
if a[1] =0 then exit;
end;
s:=0;
for i:=1 to n do
begin
if a[i]>0 then s:=s+1/a[i];
end;
writeln('Tong la ',s);
readln
end.
Dùng câu lệnh while...do viết chương trình nhập các số nguyên kết thúc khi nhập bằng 0 . Tính tổng các số chẵn , tổng câc số lẻ đã nhập rồi in kết quả ra màn hình
uses crt;
var n,i,t1,t2:integer;
begin
clrscr;
t1:=0;
t2:=0;
repeat
readln(n);
if n mod 2=0 then t1:=t1+n
else t2:=t2+n;
until n=0;
writeln(t1,' ',t2);
readln;
end.