Question

ПАСКАЛЬ! Помогите заменить FOR на WHILE! var a,b,c,s1,s2,k,i:integer; begin write('a, b, c:'); readln(a,b,c); s1:=0; for i:=1 to b do s1:=s1+a; s2:=0; for i:=1 to c do s2:=s2+c; writeln('s1 = ',s1,' s2 = ',s2); k:=0; while s1>s2 do begin k:=k+1; s1:=s1-s2; end; k:=k+1; writeln('k = ',k); end. Пример: a, b, c: 4 7 3 s1 = 28 s2 = 9 k = 4

Answer 1

Ответ:

var a,b,c,s1,s2,k,i:integer;

begin

i := 1;  

write('a, b, c:');

readln(a,b,c);

s1 := 0;

while i<=b do

begin

 s1 := s1+a;

 i := i + 1;

end;

s2 := 0;

i := 1;

while i<=c do

begin

 s2 := s2+c;

 i := i + 1;

 end;

writeln('s1 = ',s1,' s2 = ',s2);

k:=0;

while s1>s2 do begin k:=k+1; s1:=s1-s2; end;

k:=k+1;

writeln('k = ',k);

end.

Answer 2

Вот переписанный код, в котором цикл FOR заменен на цикл WHILE:

pascalCopy code
var
  a, b, c, s1, s2, k, i: integer;

begin
  write('a, b, c:');
  readln(a, b, c);

  s1 := 0;
  i := 1;
  while i <= b do
  begin
    s1 := s1 + a;
    i := i + 1;
  end;

  s2 := 0;
  i := 1;
  while i <= c do
  begin
    s2 := s2 + c;
    i := i + 1;
  end;

  writeln('s1 = ', s1, ' s2 = ', s2);

  k := 0;
  while s1 > s2 do
  begin
    k := k + 1;
    s1 := s1 - s2;
  end;

  k := k + 1;
  writeln('k = ', k);
end.

После замены цикла FOR на цикл WHILE программа должна работать так же, как и прежде.