C(16) = 1100(2)
Проверка:
C(16) = 12(10)
1100(2) = 2^3+2^2 = 8+4 = 12(10)
Var a,b:integer;
begin;
b:=1;
a:=1;
while a<>0 do
begin;
readln(a);
if a=0 then break;
b:=b*a;
end;
writeln(b);
<span>end.</span>
var inch:integer;
begin
writeln('* alphaues is thinking... *');
writeln;
writeln('*******************************');
for inch:=1 to 20 do
writeln('* ',inch,' inches = ',inch*2.54,' *');
writeln('*******************************');
end.
246 во 2
посмотри в интернете там выйдет
Запись алгоритма в виде блок-схемы более наглядная и компактная.