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
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