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>
Дождь лил как из ведра
Скоро дело наладилось и пошло как по маслу
Я знал городские переулки как свои пять пальцев
У себя димка был как рыба в воде
Гости свалились как снег на голову
он всегда врёт как сивый мерин
1 байт - 8 бит
80000 бит/с = 10000 байт/с
1 Кбайт - 1024 байт
10000 байт * 50с = 500000 байт(за 50 с )
Дальше сам,данные есть,решай по формуле S=tV (V -скорость)
var
m: Real;
i: Integer;
begin
m := 1.5;
for i := 1 to 7 do begin
WriteLn (i, ' сентября количество биомассы составляет ', m:10:7, ' т' );
m := m * 1.3;
end;
end.
если по логике то должно получится 2064, а это 2 килобайта 16 байт = 2,16 килобайт.