Câu 1:Viết chương trình tính: S=2+4+6+...+n Câu 2:Viết chương trình tính: S+1+(1/2)+(1/3)+...(1/n) Câu 3:Viết chương trình tính trung bình cộng của n số tự nhiên bất kỳ nhập từ bàn phím. Giúp mik với nhé mn, pls help and tks so much!!!^-^

lanb2056

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 20 xem

1 trả lời

Thích Trả lời

qngo9820

Câu 1:

Program tinh_tong;

Uses crt;

Var S,i,n : integer;

Begin

Write ('Nhap n=');

Readln (n);

S:=0;

For i:=1 to n do

If i mod 2= 0 then

S:= S+ i;

Writeln ('Tong S la:', S);

Readln

End.

Câu 2:

Program tinh_tong;

Uses crt;

Var i, n: integer;

S: real;

Begin

Write ('Nhap n=');

Readln (n);

S:=0;

For i:= 1 to n do

S:=S + 1/i ;

Writeln ('Tong S la:', S:8:3);

Readln

End.

Câu 3:

Program tinh_tbc;

Uses crt;

Var i, n,S: integer;

Tbc: real;

Begin

Write ('Nhap n=');

Readln (n);

S:=0;

Tbc:= 0;

For i:= 1 to n do

S:= S+ i;

Tbc:= S/n ;

Writeln ('Trung binh cong la:', tbc:8:3);

Readln

End.

#Không chắc câu 3 nữa -_-

Vote (0) Phản hồi (0) 2 năm trước

Snow

Bài $1$ Program Hotboy ;

Uses crt;

Var s,i,n : longint;

Begin

Clrscr ;

S:=0;

Write('nhap so n tu ban phim ');

Readln(n);

For i:=1 to n do

If (i mod 2=0) then S:=S+i;

Writeln('tong can tim la',S);

Readln

End.

Bài $2$

Program Hotboy ;

Uses crt;

Var s,i,n : real;

Begin

Clrscr ;

S:=0;

Write('nhap so n tu ban phim ');

Readln(n);

For i:=1 to n do

S:=S+1/i; inc(i);

Writeln('tong can tim la',S);

Readln

End.

Bài $3$

Program Hotboy ;

Uses crt;

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

S,n,i ,tb: real;

Begin

Clrscr ;

Writeln('nhap so n');

Readln(n);

For i:=1 to n do

Begin

Write('A[',i,']');

Readln(A[i]);

End;

For i:=1 to n do

$S:=S+A[i];$

Tb:= S/n

Write('tong la',S,'Trung binh la',Tb);

Readln

End.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Giải giúo mình với mình cần gấp ạ

tính chất của pháp xâm lược việt nam

Đề: Làm theo chỉ dẫn 1) Nam's English is very Fluent ->Nam speak.................................................. 2) They are very hard workers -> They work..................................................... 3) My sister is a very good student -> My sister studies..........................................

chứng minh rằng công nghiệp có tác dụng thúc đẩy sự phát triển của các ngành kinh tế khác

Định dạng kí tự là gì? Trình bày các thao tác định dạng kí tự và nêu rõ tính chất của định dạng kí tự.

Cho 2 tế bào hạt phấn có bộ NST 2n=14 của cây đậu hà lan. sau khi trải qua quá trình hình thành hạt phấn thì tạo ra bao nhiêu hạt phấn? mỗi hạt phấn có bộ NST là bao nhiêu

thiên nhiên trung và nam mĩ nằm chủ yếu trong môi trường nào

Ai làm nhanh hộ em câu 1 với ăn trg 10p em cần hấp ạ

ở tủ lạnh nhà em ngăn đông và ngăn lạnh .ngăn nào nằm nào nằm trên .vì sao?

Ai lm hộ mik bài này vs Gấp lắm

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến