Uses graphabc;
begin
window.IsFixedSize := true;
window.Height := 600;
window.Width := 800;
pen.Color := clred;
lockdrawing;
for var i := 0 to 750 do
begin
window.Clear;
DrawRectangle(i, 0, 50 + i, 50);
redraw;
end;
end.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var y:=ReadReal('y=');
var x:=(y-16)/10;
Writeln('При y=',y,', x=',x)
end.
<u>Пример</u>
y= 4.17
При y=4.17, x=-1.183
33- 100001 ( двоичный код числа 33)
Чтобы перейти из десятичной системы счисления в восьмеричную, нужно выполнить деление столбиком на 8, а остатки, начиная с последнего, и будут являться ответом.
а) 51310 = 10018
513 | 1
64 | 0
8 | 0
1
б) 60010 = 11308
600 | 0
75 | 3
9 | 1
1
в) 201010 = 37328
2010 | 2
251 | 3
31 | 7
3
9 нулей..Тоесть 1 000 000 000