一个小循环语句的写法 [ 求助]

Question

输入m1,m2,m3,m4.............一直到n
   假设他们都 小于 100
   实现  m1+m2+.....  如果结果〉=100 停止  循环
  用 do......while

Answer 1

do......while相对于repeat......until

Answer 2

program Project1;{$APPTYPE CONSOLE}uses
  SysUtils;  Var
   s1 : integer;
   sum : integer;
begin  sum := 0;
  while (sum < 100) do
    Begin
      Write('Input a num ');
      Readln(s1);
      sum := sum + s1;
    end;
  Writeln(Format('Sum is %d',[sum]));  Readln;end.

Answer 3

输入m1,m2,m3,m4.............一直到n
   假设他们都 小于 100
   实现  m1+m2+.....  如果结果〉=100 停止  循环
  用 do......while假设他们都 小于 100 这个歧异，假设？？如果之意？还是先作后判断

Answer 4

Delphi里没有DO WHILE吧？应该是While Do Var
   iS : Integer;
   iSum : Integer;
Begin  iSum := 0;
  While iSum < 100 Do Begin
      
      //输入值到iS，方法很多 
      
      If iS < 100 Then
        iSum := iSum + iS
      Else 
        Break;
  End;