Определите значение переменной s после выполнения фрагмента программы s := 0; x := 2019;...

Question

Определите значение переменной s после выполнения фрагмента программы s := 0; x := 2019; while x > 0 do begin x := x - 1; s := s + 1; end;

Answer 1

program pr11;

var

s,x:real;

begin

s := 0;

x := 2019;

while x > 0 do begin

x := x - 1;

s := s + 1;

end;

write('S= ',s);

End.

Протокол:

S=2019