0 1 2 3 4 5 10 11 12 13 14
_____________
Ответ:
Объяснение:
var n:integer;
begin write('введите n - '); readln(n);
if n <> 0 then
write(n * (-1))
else write('знак не может быть изменен');
end.
Var x,s:real;
begin
x:=2;
while x<3 do
begin
S:=S+x;
x:=x+0.1
end;
writeln (S);
readln
<span>end.</span>
Думаю так, но это не точно
14000+400+20+4