//Pascal ABC.NET 3.1 сборка 1256
Var
s:string;
a,b:real;
begin
readln(s);
a:=strtofloat(copy(s,1,pos('X',s)-1));
b:=strtofloat(copy(s,pos('=',s)+1,length(s)-pos('=',s)));
if (a=0) and (b=0) then
begin
writeln('X-любое действительное число');
exit;
end
else
if a=0 then
begin
writeln('Нет корней');
exit;
end;
writeln(b/a);
end.
Пример ввода:
-0.1X=10
Пример вывода:
-100
Одинизних, наверное 3д моделирование
#include <iostream>
using namespace std;
void bin(int n);
int main()
{
int n;
cout<<"Введи число в десятичной системе счисления\n";
cin>>n;
bin(n);
system("pause");
return 0;
}
void bin(int n)
{
int binn[15], ;
for(int i=14;i>=0; i--)
{
binn[i]=n % 2;
n=n/2;
}
for(int i=0; i<=14;i++)
{
cout<<binn[i];
}
cout<<"\n";
}
Файлы могут быть организованы в виде линейной или иерархической файловой структуры
128*32=4096 символов на одной странице
N=2^I
Где I- кол-во информации, N-содержание, информация.
N=256 I=8 бит
4096*8=32768 бит=4 Кбайт на каждой странице
15440\4=3860 страниц
1 лист =2 страницы
3860\2=1930 листов в книге