Question

Чему будет равна переменная sum после выполнения фрагмента программы: i:=15; sum:=0; While i>5 do begin sum:=sum+i/5; i:=i-5 end[/tex]

Answer 1

Пяти:)

{ Без расчётов выкладывать нельзя поэтому вот они }
begin
   var i: integer := 15;
   var sum: real := 0;
   while i > 5 do
   begin
    sum := sum + i / 5;
     i := i - 5
  end;
  writeln(sum);
end.