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

cau a) var   m,s,s1,s2,s3,s4:interger;
                 p:longint;
     begin
       read(m);
      s:=0;p:=0;
      while  (s<m) then
        begin
          inc(p);s:=s+p;
        end;
       writeln('so can tim',p);
       if (m mod 2 =0) then s1:=s1+ (m+1)*(m div 2)
           else    s1:=s1+ (m+1)*(m div 2) + m div 2 +1;
       writeln('s1=',s1);
          if (m mod 2 =0) then s2:=s2+ (2*m+2)*(m div 2)
           else    s2:=s2+ (2*m+2)*(m div 2) + m +1;
       writeln('s2=',s2);
       s3:=(1+100)*50*m;
   writeln('s3=',s3);
    s4:= 100*m*m+s3;
   writeln('s4=',s4);
 readln
 end.

Shiroemon · Answer

trá»i báº¡n khÃ´ng pit thuáº­t ngá»¯ pascal (writeln, end, else, if),hÃ m sum or avarage thÃ¬ Äá»«ng nÃªn lÃ m pÃ i ná»³ lÃ m zÃ¬ cho má»t Ã³c, nÃ³i vs ngÆ°á»i Äá» báº¡n lÃ  ui khÃ´g rÃ nh vá» pascal, chá»© viáº¿t ra háº¿t mÃ½ cÃ¡i ná»³ thá»© 1 báº¡n Äá»c khÃ´ng hiá»u zÃ¬, thá»© 2 lÃ  báº¡n ÄÃ¢u cÃ³ thá» tá»± chá»nh sá»­a or tá»± test láº¡i káº¿t wuáº£ trÃªn lÃ  ÄÃºng hay sai.... vv

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

2 Câu trả lời