⇢ АТ
Анна Тарасова
Паскаль
Преобразовать
делящиеся на 7 числа из диапазона [20, 50] в двоичные. Подскажите, что делает строка (s:=Chr(b mod 2+48)+s;)и почему именно эти цифры 2+48(b mod 2+48),для чего это. var i,b:Integer;s:string;
begin
for i:=20 to 50 do
if i
mod 7=0 then
begin
Write(i,'-');
b:=i;
s:='';
while b1 do
begin
s:=Chr(b mod
2+48)+s;
b:=b div
2;
end;
s:='1'+s;
Writeln(s);
end;
end.