Mình mong pro về tin giúp mình bài này?

Question

nhập vào từ bàn phím 2 số m,n nguyên dương với m<n ; máy thông báo lên màn hình giá trị của :
câu a : số p nhỏ nhất mà 1+2+3+...+p>m
câu b : S1 = 1+2+...+m
câu c : S2 = 2+4+...+2m
câu d : S3 = m+ 2m + ...+100m
câu e : S4 = m(m+1)+m(m+2)+...+m(m+100) 
Có người hỏi mình nhưng mình không biết làm và viết bằng pascal như thế nào mong mọi người giúp cho

Ẩn danh · Accepted Answer

phần nhập chắc bạn biết đúng k?
còn m sẽ viết hộ bạn phần code mấy câu đó. Nếu cần ct hoàn chỉnh hay bi lỗi j pm yahoo: oblivious219 nha b.
a)
s:=0;
p:=0
repeat
    p:=p+1;
    s:=s+p;
until s>m;
write('p =');
writeln(p);

b)
S1:=0;
for i:=1 to m do
begin
 S1:=S1+i;
 i:=i+1;
end;
write('S1 =');
writeln(S1);

c)
  S2:=0;
 for i:=1 to m do
begin
  S2:=i*2;
  i:=i+1;
end;
write('S2 =');
writeln(S2);

d)

  S3:=0;
 for i:=1 to 100 do
begin
  S3:=i*m;
  i:=i+1;
end;
write('S3 =');
writeln(S3);

e)
  S4:=0;
 for i:=1 to 100 do
begin
  S4:=m*(m+i);
  i:=i+1;
end;
write('S4 =');
writeln(S4);

Lâu k đụng tới pascal. có j sai thì pm m coi lại nha.hihi

Mình mong pro về tin giúp mình bài này?

1 Câu trả lời