1100101(2) = 2^6+2^5+2^2+1=64+32+4+1=101(10)/
var
s,s1:real;
k:integer;
begin
s:=10;
k:=1;
while s<20 do
begin
s:=s*1.1;
k:=k+1;
end;
writeln('в ', k,' день он пробежит 20 км');
s:=10;
s1:=10;
k:=1;
while s<200 do
begin
s:=s+s1*1.1;
s1:=s1*1.1;
k:=k+1;
end;
writeln('в ', k,' день суммарный пробег превысит 200 км');
end.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
var a:=ReadArrString(n);
Writeln(40*'-');
foreach var w in a do begin
var wa:=w.ToWords;
if wa[2].ToInteger>100 then Writeln(w)
end
end.
Var a, b: integer;
begin
write('Первое число = ');
readln(a);
write('Второе число = ');
readln(b);
if a > b then
writeln(a + b)
else
writeln(a * b);
end.
В сообщении 24 символа (посчитал)
16 бит = 2 байта (один байт это 8 бит)
24*2=48 байт (каждый символ это два байта)
Ответ: 48