Сравните числа: а) 28,52510 и 11100,1000012
б) 1111,012 и 15,2510
2. Вычислите (укажите подробное решение). Результат представьте в
указанной системе счисления:
а) 1345 + 1010012 + 617 = ?8
б) 1223 + 1011012 + 314 = ?16
3. Одно племя имеет 32-символьный алфавит, а второе племя – 64-
символьный алфавит. Вожди племен обменялись письмами. Письмо первого
племени содержало 80 символов, а письмо второго племени – 70 символов.
Сравните объем информации, содержащийся в письмах.
4. Информационное сообщение объемом 1,5 Кб содержит 3072 символа.
Сколько символов содержит алфавит, при которого было записано
это сообщение?
5. Объем сообщения, содержащего 2048 символов, составил 1/512 часть
Мбайт. Определить мощность алфавита.
6. Какое количество документов на студентов имеется в деканате, если они
составляют 45 Мб и каждый из них имеет объем 12 страниц (48 строк по 64
символа).
7. Какой минимальный объем памяти ЭВМ необходим для хранения
информации, содержащейся в 32 томах. Если том имеет в среднем 512
страниц по 64 строки из 64 символов.
var
t:boolean;
d:integer;
begin
t := true;
d := 2;
while t and (d*d <= x) do
begin
if x mod d = 0 then
t := false;
d := d + 1
end;
prime := t
end;
function order(x:integer):boolean;
var
t:boolean;
d:integer;
begin
d := -1;
repeat
t := x mod 10 > d;
d := x mod 10;
x := x div 10
until not t or (x = 0);
order := t
end;
var
t:boolean;
i,k,n:integer;
begin
t := false;
read(k,n);
for i := k to n do
if prime(i) then
if order(i) then
begin
write(i,' ');
t := true
end;
if not t then
write(0)
end.
var s,v,t,a:real;
begin
writeln('Введите скорость, ускорение и время соотвественно');
read(v,a,t);
s:=v*t+(a*sqr(t))/2;
writeln('Расстояние S = ',s);
end.
Задание №2
var a,b,c,d,m,n:integer;
begin
writeln('Введите ширину и высоту комнаты');
read(a,b);
writeln('Введите размеры окна');
read(c,d);
writeln('Введите размеры двери');
read(m,n);
writeln('Площадь стен для оклеивания обоями = ',a*b-c*d-m*n);
end.
Задание №3
var a,b:real;
begin
writeln('Введите два числа');
read(a,b);
writeln('Среднее арифметическое кубов этих чисел = ',(power(a,3)+power(b,3))/2);
writeln('Среднее геометрическое модулей этих чисел = ',sqrt(abs(a*b)));
end.
Задание №4
var x:real;
begin
writeln('Введите ребро куба');
read(x);
writeln('Площадь грани = ',sqr(x));
writeln('Площадь полной поверхности = ',6*sqr(x));
writeln('Объем куба = ',power(x,3));
end.
Задание №5
var r1,r2:real;
begin
writeln('Введите внешний и внутренний радиус');
read(r1,r2);
if r1<r2 then writeln('Внешний радиус должен быть больше внутреннего') else
writeln('Площадь кольца = ', Pi*sqr(r1)-Pi*sqr(r2));
end.