Ngôn ngữ pascal Câu 1: Nhập vào 2 số nguyên M,N.Tính tổng các số chẵn trong đoạn M,N Câu 2: Tính tổng sau: S = 500+1/3+1/6+1/9+...+1/3N

tran1long

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 17 xem

1 trả lời

Thích Trả lời

thanglong3anh

Câu 1:

Program BTT;
Uses crt;
Var m,n,s,i: longint;
Begin
Clrscr;
Write('Nhap m va n: '); Readln(m,n);
s:=0;
If m<n then
For i:=m to n do
If i mod 2=0 then s:=s+i
Else
For i:=n to m do
If i mod 2=0 then s:=s+i;
Write('Tong la: ',s);
Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var n,i: longint;
s: extended;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=500;
For i:=1 to n do
s:=s+1/(3*i);
Write('Tong la: ',s:0:2);
Readln
End.

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

plinhthuy

Câu 1:

uses crt;
var i,m,n,t:longint;
begin
clrscr;
write('Nhap m,n: ');readln(m,n);
for i:=m to n do
if i mod 2=0 then inc(t,i);
writeln('Tong cac so chan tu m den n: ',t);
readln
end.

Câu 2:

uses crt;
var i,n:longint; s:real;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=3 to 3*n do
s:=s+1/i;
s:=s+500;
writeln('S= ',s);
readln
end.

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

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

quy lập phân lí đọc lập của gen

She said,"I can't find my umbrella".

tâm trạng đợi tàu của chị em liên ( từ an và liên buồn ngủ ríu cả mắt đến hết) kh copy nha mọi người

nhờ mn giải dùm em với ạ... em đang cần gấp... mai em thi rồi :((

Gái có chồng như gông đeo cổ Thành hay tục ngữ?

Khí CO2 sẽ làm đục dung dịch gì sau đây: HCL ,CAO,CA(OH)2,CUSO4 ,CUCL2

chứng minh rằng với mọi n thuộc tập hợp số tự nhiên, ta có: a) n.(n+2).(n+7) chia hết cho 3 b) 5^n - 1 chia hết cho 4 c) n^2 + n + 2 không chia hết cho 5 ( phải có lời giải thích)

gọi S là tập hợp các số tự nhiên gồm 9 chữ số khác nhau .chọn ngẫu nhiên một số từ S ,tính xác xuất để chọn được một số gồm 4 chữ số lẻ và chữ số 0 luôn đứng giữa hai chữ số lẻ (hai số hai bên chữ số 0 là chữ số lẻ)

Mọi ng giải giúp e bài 1 phần b và bài 2 ạ

Cho số abc chia hết cho 37. Chứng minh rằng số cab cũng chia hết cho 37

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