program n_1;
var
n, m, k, b, c, d:integer;
begin
read(n,m,k);
if k<3 then writeln('0') else begin
c:= m div 2;
b:= n mod (k-2);
d:= n div (k-2);
if (b<>0) then d:=d+1;
if (d>c) then writeln('0')
else if (n+m) mod k = 0 then writeln((n+m) div k)
else writeln((n+m) div k + 1);
end;
end.
Биты (*8) - байты (*1024)- Кбайт (*1024)- Мбайт (*1024) -Гбайт (*1024)
21 Гб =22020096 Кб
Дальше сама. Всё же просто .
Так?
зы.сы Если лишний текст не нужен - напиши. Или сам убери.
Смотри, первые четыре примера переводим из двоичной в десятичную систему счисления. Для этого каждую цифру, начиная с конца, пронумеруем сверху. Дальше смотри берём саму цифру и умножаем ее на число системы счисления (у нас двоичная, значит на два). И так со всеми цифрами. Такой способ применяется при переводе из любых систем счисления в десятичную.
В четвёртом другой случай. Тут наоборот надо перевести из десятичной в двоичную. Для этого мы заданное число делим на два, до тех пор, пока остаток не станет равен 1 или 0. Заметь, то что обведено кружочками - это полученные цифры в двоичной системе, стрелочкой я указала, что они записываются в этом порядке. Надеюсь, тебе стало более менее понятно! Всего, хорошего, учи инфу - пригодится ;)
Var
s:string;
b:char;
i,n:integer;
begin
writeln('Введите текст');
readln(s);
writeln('Введите символ');
readln(b);
n:=length(s);
for i:=1 to n do
if s[i]=' ' then
s[i]:=b;
writeln(S);
<span>end.</span>