Program chisla;
uses crt;
var a:integer;
begin
Write('Введите число - ');
readln(a);
If a>0 then
write('+1')
else begin
If a<0 then
write('-1')
else begin
If a=0 then
write('0')
else begin
end;
end;
end;
<span>end.</span>
Var n,i,k,s1,s2:integer;
begin
write('n='); readln(n);
s1:=n; s2:=0;
for i:=1 to n-1 do
begin
write('k',i,'='); readln(k);
s1:=s1+i; s2:=s2+k;
end;
writeln('Потерялась карточка ',s1-s2);
<span>end.
Пример:
n=5
k1=1
k2=3
k3=4
k4=5
<span>Потерялась карточка 2
</span></span><span><span>
</span></span>
Все очень просто за вас это решил <span>Билл Гейтс. В виндовс может быть несколько пользователей и каждый заходит в "свой компьютер". Ну а корзина одна на всех.</span>