Ответ:
Залесь в комп и посмотри деспечер задач или зайди настройки, и интернет, и там будет наверное блокировка твоего Wi-Fi
Var n,m,a,b,c,d:integer;
begin
write('n = ');
readln(n);
a:=n div 1000;
b:=n div 100 mod 10;
c:=n mod 100 div 10;
d:=n mod 10;
m:=d*1000+c*100+b*10+a;
writeln('m = ',m);
end.
Пример:
n = 1762
m = 2671
<span><span><span>
<span>
</span></span></span></span><span><span><span>
<span>
Свойства файла
</span></span><span>
Имя файла </span></span></span>word<span><span>
</span>
тип </span>Текстовый документ<span><span>
</span>
приложение </span>Microsoft Office Word<span><span>
</span>размер </span><span>36 МБ</span><span><span><span>
</span><span> Дата создания
</span></span><span>20.02.2017
</span></span>
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var t:=1000;
var k:integer;
repeat
k:=ReadInteger('->');
t-=k
until t<0;
Writeln('Всё...')
end.
<u>Пример</u>
-> 453
-> 216
-> 39
-> 64
-> 312
Всё...
<em>Решение для "древних паскалей"</em>
var
k,t:integer;
begin
t:=1000;
repeat
Write('->'); Read(k);
t:=t-k
until t<0;
Writeln('Всё...')
end.