Function ToBinaryString(x: integer): string;
var r, s: string;
begin
if x < 0 then begin
s := '-';
x := -x;
end;
while x <> 0 do begin
r := Chr((x and 1) or 48) + r;
x := x shr 1;
end;
ToBinaryString := s + r;
end;
var x: integer;
begin
readln(x);
writeln(ToBinaryString(x));
<span>end.</span>
Вроде (в), так как за одну секунду качает: 450/10=45 байт в секунду
Ответ:
6.07.1923(дата), 353,6(дробь), 123(число)-числовая информация
рисунок кораблик- графическая информация
Объяснение:
Думаю Латынь! Под буквой В, я может и ошибаюсь, но думаю Латынь