Tin học [Lớp 11] Viết chương trình

[phuong kim]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

1. Viết chương trình tính tổng các số chẵn từ 5 đến 60
2. Cho a,b là hai số nguyên dương.tìm ước chung lớn nhất
3. Tính Tổng S=(1/a)+(1/a+1)+(1/a+2)+...+(1/a+20)
4. Tính Tổng S=(1/a)+(1/a+1)+(1/a+2)+...+(1/a+n) +... Cho đến khi (1/a+n) <= 0.005
AI GIÚP MÌNH VỚI, CẢM ƠN TRƯỚC NHA

 

[pinkylun]

câu 2: bạn đọc sách nhé!
Câu 1:
bạn tự nhập biến nha
begin
read(n);
for i:=5 to 60 do
begin if i mod 2 =0 then S:=S+i; end;
write(s);
end.

 

[orangery]

Câu 3:
Program c3;
uses crt;
var a,i:longint;
s:real;
begin
clrscr;
write('a= ');readln(a);
for i:=1 to 20 do
s:=s+(1/(a+i));
write('Tong S= ',s:4:2);
readln;
end.

 

[Tạ Đặng Vĩnh Phúc]

Thêm bài 4 luôn cho đủ bộ:
var a: integer;
sum : real;
begin
readln (a);
sum = 0;
while (1/a <= 0.005) do
begin
sum = sum + 1/a;
a = a + 1;
end;

write (sum : 0 : 2);
end.