1)
var
x:integer;
begin
writeln('x=');read(x);
if x>-1 then writeln('y=',x*x*x) else writeln('y=',-1/(x*x));
end.
2)
var
a,b:integer;
begin
write('a=');read(a);
write('b=');read(b);
if Odd(a-b) then Writeln(2*a*b)else Writeln(sqr(a+b));
end.
Задание 1 во вложении.
Задание2.
const
m = 20;{максимальное количество элементов}
var
a: array[1..m] of real;
i, n: integer;
begin
Write('Введите количество элементов (от 1 до 20): ');
Readln(n);
Writeln('Вводите через пробел элементы массива');
for i := 1 to n do
begin
Read(a[i]);
a[i] := sqr(a[i])
end;
Writeln('Результирующий массив:');
for i := 1 to n do Write(a[i]:0:4, ' ');
Writeln
end.
Тестовое решение:
Введите количество элементов (от 1 до 20): 5
Вводите через пробел элементы массива
1.3 2.7 -4 4.23 0
Результирующий массив:
1.6900 7.2900 16.0000 17.8929 0.0000
Что делать то надо чувак или чувиха
1)для уменьшения объема передаваемой информации, и, как следствие, уменьшения затрат. также невозможно написать программу на компьютер на всех языках мира одновременно(я имею ввиду не переводы и локализаторы для игрушек, а именно исходный код, обрабатываемый процессором), а цифры есть у всех и они, в целом, у всех одинаковы. как-то так.
2) преобразование с машинного(компьютерного) языка информации в ту форму представления, в которой человек может работать.
3) лично я - ноутбук, моб. телефон
4) потеря информации происходит обычно из-за обрыва или плохого качества связи. нет, не замечал.
5) рация, напрмер
6)шум - помеха в передаче.обычно это наложение волн одной частоты или близких частот (ну это физика, насколько я помню)
7) усиление сигнала, глушилки помех
Зависит от того, в какой кодировке написано письмо, сжато или нет, какой байт используется в данной компьютерной системе, в конце концов как измеряется информационный объём сообщения. Однозначного ответа тут быть не может. Можешь написать 672 и 84, положив кодировку однобайтовой, но это не решение.