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

Question

4 года назад

12

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

1 ответ:

valdem [6] · Answer 1 · 2020-04-15T17:42:22+03:00

valdem [6]4 года назад

0 0

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