var
a:real;
begin
readln (a);
a:=trunc (a); {trunc - это такая функция (уже готовая в самой программе), которая находит целую часть числа}
writeln ('Целая часть числа а равна ',a)
end.
если я правильно понял смысл
16^x бит = 64 кбайт
2^(4*x) бит = (2^6 + 2^13) бит
2^4x=2^19
4x=19
x=19/4
x=4.75
16^4.75=524288 бит = 64 КБ
Готово :)
..............................
Вот на Pascal NET,только желтые точки будет почти не видно
uses GraphABC;
begin
//Левый верхний угол
PutPixel(1,1,clYellow);
//Левый нижний угол
PutPixel(1,WindowHeight-1,clYellow);
//Правый верхний угол
PutPixel(WindowWidth-1,1,clYellow);
//Правый нижний угол
PutPixel(WindowWidth-1,WindowHeight-1,clYellow);
<span>end.</span>
Var
a, b, i:integer;
Begin
write('Введите значения a и b: ');
read(a, b);
writeln('Цикл for');
for i := b downto a do write(i*i*i, ' ');
writeln();
writeln('Цикл while');
i := b;
while i >= a do
begin
write (i*i*i, ' ');
dec(i);
end;
writeln();
writeln('Цикл repeat');
i:=b;
repeat
write(i*i*i, ' ');
dec(i)
until i < a
writeln();
End.