A)
var a,sum,p:integer;
<span>begin </span>
<span>writeln('Введите число a'); </span>
<span>read(a); </span>
<span>sum:=a div 10 + a mod 10; </span>
<span>p:=(a div 10) * (a mod 10); </span>
<span>writeln('Сумма цифр числа =',sum); </span>
<span>writeln('Произведение цифр числа =',p); </span>
<span>end.
</span>
б)
var a:integer;
<span>begin </span>
<span>writeln('Введите число a'); </span>
<span>read(a); </span>
<span>a:=(a mod 10)*10+a div 10; </span>
<span>writeln(a); </span>
<span>end.</span>
1) Высчитаем количество пикселей в изображении.
128 * 128 = 16384 пикселя.
2) Узнаем информационный вес каждого пикселя.
Формула нахождения информации N = 2i (где N - количество цветов в палитре, i - количество информации в битах, которое несет каждый пиксель).
256 = 28
Один пиксель несет 8 бит информации.
3) Найдем информационный вес изображения.
16384 * 8 = 131072 бита
4) Переведем биты в байты. 1 Байт = 8 битам.
131072 : 8 = 16384 байта.
5) Переведем байты в Кбайты. 1 Кбайт = 1024 байт.
16384 : 1024 = 16 Кбайт.
Ответ: объем памяти нужен минимум 16 Кбайт.
Странная запись инверсии.
Обозначим цифры, которыми записаны числа P, Q, R и T a, b, c.
P(x) = a*x+b
Q(y) = c*y+c
R(x) = b*x+a
T(y) = a*y+b
a*x+b+c*y+c = 21
b*x+a-a*y-b = 2
Пусть a=1, b=1, c=1
x+1+y+1 = 21, x+y = 19
x+1-y-1 = 2, x-y = 2
x = y+2, y+2+y = 19, 2*y = 17 - не подходит
Пусть a=2, b=1, c=1
2*x+1+y+1 = 21, 2*x+y = 19
x+2-2*y-1 = 2, x-2*y = 1
x = 2*y+1, 2*(2*y+1)+y = 19, 5*y = 17 - не подходит
Пусть a=1, b=2, c=1
x+2+y+1 = 21, x+y = 18
2*x+1-y-2 = 2, 2*x-y = 3
y = 2*x-3, x+2*x-3 = 18, 3*x = 21
x = 7, y = 11
P(7) = 12(7) = 7+2 = 9(10)
Q(11) = 1*11+1 = 12(10)
9(10)+12(10) = 21(10)
R(7) = 2*7+1 = 15(10)
T(11) = 1*11+2 = 13(10)
15(10)-13(10) = 2(10)
Ответ: x=7, y=11
const
handsfree = false;
nmax = 31;
random_min = -20;
random_max = 30;
var
a: array[1..nmax] of real;
i, n, j: integer;
k: integer;
begin
{ввод массива}
if handsfree then
n := random(nmax - 5) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
else
readln(a[i]);
end;
writeln();
{подсчет элементов}
k := 0;
for i := 1 to n do
if a[i] = 15 then
k := k + 1;
writeln('quantity = ', k);
end.