Var x,a,b,c,d:real;
begin
writeln('Введите число: '); read(x);
a:=sqr(x);
writeln ('Квадрат этого числа = ',a);
b:=sqrt(x);
writeln ('Корень квадратный = ',b);
c:=cos(x);
d:=sin(x);
writeln ('Синус = ', c, ' | Косинус = ',d);
<span>end.</span>
Var
i: integer;
begin
for i:=1 to 10 do
writeln(i, ' Кбайт = ', i*1024, ' байт');
<span>end.
</span><span>Бейсик
</span>DIM I AS INTEGER;
FOR I:=1 TO 10
PRINT I*1024
NEXT I
11010010 = 128+64+0+16+0+0+2+0 = 210
11001100 = 128+64+0+0+8+4+0+0 = 204
11001111 = 128+64+0+0+8+4+2+1 = 207
11010011 = 128+64+0+16+0+0+2+1 = 211
а = 192
б = 193
<span>...</span>
1) с
2) корневой каталог - С:
каталог первого уровня - windows
каталог второго уровня - appcompat
каталог третьего уровня - appraiser
3) b