1000001111(2)<span> = 1</span><span>017(8)</span>
Program Task;
Var i, N: Integer;
Begin
Write('N = ');
ReadLn(N);
For i := 1 To N Do
Write(i, ' ');
ReadLn;
<span>End.</span>
Ответ:
program temp;
var
d, x, y: Double;
begin
Write ('d, x, y: ');
ReadLn (d, x, y);
if (x >= 0) and (y >= 0) and (x + y <= d) then
WriteLn (1)
else
WriteLn (0);
ReadLn;
end.
6144*32=196608 объем в битах
196608/8=24576 объем в байтах
24576/1024=24 кб
Ответ:24