Var mas: array[1..15] of integer;
i, min, max, nMin, nMax:integer;
begin
writeln('Введите 15 элементов массива');
for i := 1 to 15 do
readln(mas[i]);
min := mas[1];
max := mas[1];
nMin := 1;
nMax := 1;
for i := 1 to 15 do
begin
if max < mas[i] then
begin
max := mas[i];
nMax := i;
end;
if min > mas[i] then
begin
min := mas[i];
nMin := i;
end;
end;
writeln('Максимальное число и его номер ', max, ' ', nMax, ' Минимальное число и его номер ', min, ' ', nMin);
end.
var i: integer;
n1,n2: integer;
begin
for i := 10 to 99 do
begin
n1 := i div 10;
n2 := i mod 10;
if (n1 + n2) * (n1 + n2) * (n1 + n2) = i * i then
begin
writeln(i);
end
end;
end.
1) Клавиатура, микрофон, сканер
6) сканер
7) винчестер
8 )принтер, монитор,колонки
10) клавиатура
В 1 случае объем сообщения равен=8*16 бит=128 бит
во втором случае объем равен=8*8=64 бит
уменьшился объем на 64 бита
<span />
Происходит возведение в квадрат поступающих чисел.
0^2 = 0
1^2 = 1
2^2 = 4