Var a,b,x,s:integer;
begin
write('a = ');
readln(a);
write('x = ');
readln(x);
b:=a;
s:=0;
while b>0 do
begin
s:=s+b mod 10;
b:=b div 10;
end;
writeln('s = ',s);
if s>x
then writeln('Сумма цифр больше ',x)
else writeln('Сумма цифр не больше ',x);
end.
Пример:
<span>a = 31854
x = 15
s = 21
Сумма цифр больше 15</span>
Рисунок- это графические данные.Человек умеет преобразовывать в текстовые данные.
120, 210, 102, 201 . Один раз можно использовать число?
a) сколько уровней серого предоставляется 12-ю битами. (Я предположил, что 4096)
Верно. = 4096
b) сколько битов потребует одна такая рентгенограмма.
Всего пикселей:
2048 * 2048 = 4194304
На каждый пиксель по 12 бит:
4194304 * 12 = 50331648 бит на одну рентгенограмму.
c) необходимо отправить 5 рентгенограмм по линии Т1 (1.544 Мбит/с). Сколько времени это займет для идеальной линии.
1.544 Мбит/с = 1544000 бит/с
(5 * 50331648) / 1544000 = 162,991088083 ≈ 163 секунды
d) какой должна быть ширина канала, чтобы при запросе 5 рентгенограмм приходили в течение 2 секунд.
(5 * 50331648) / 2 = 125829120 бит/c ≈ 126 Мбит/с
Понятно, что число должно быть ОТРИЦАТЕЛЬНЫМ, поскольку, если оно положительное, например равно 2 получаем
2, 2, 5. Но это НЕУБЫВАЮЩИЙ ряд.
Тогда пусть X=-10
Получаем:
-10, 10, 101
Теперь пусть Х = - 1/2.
Получаем
-1/2, 1/2, 5/4.
Очевидно в программе будет строчка:
Writeln(x, ' ', -x, ' ', 1+x*x);