1 пример.
Program zadacha; здесь путем ввода в программе будь-то
вручную через строку команды read(a);
Var a:Integer;
Begin
a:=155;
End.
2 пример. А здесь объявить константой.
Program zadacha2;
Const a=155;
Begin
Write(a);
End.
Cначала спускаемся на а(6) потом на. б(6) потом на б(8)
<u>// PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
uses GraphABC;
begin
var (w,h):=(800,600); // размер графического окна
SetWindowSize(w,h);
var (xc,yc):=(w div 2,h div 2); // координаты центра
var R:=h-yc-20; // радиус описанной окружности
var n:=ReadInteger('Количество сторон n =');
Window.Clear;
Pen.Width:=5;
Pen.Color:=clRed;
var P:=new Point[n];
for var i:=0 to n-1 do begin
var arg:=2*Pi*i/n-Pi/2;
P[i].X:=Trunc(xc+R*cos(arg));
P[i].Y:=Trunc(yc+R*sin(arg))
end;
DrawPolygon(P);
end.
1)Мульти: 16=2 в 4 ст. 1 символ=4 бит
120*4=480 бит
Пульти: 32=2 в 5 ст. 1 символ=5 бит
96*5=480 бит
Сообщения равны.
2) 130*I=650
i=5 бит вес символа
1. 80*192=15360 точек всего.
256 цветов = 8 бит на точку (1 байт)
<span>15360*1=15360 байт, или 15.36 кБайт.</span>