//1
var
A: array [1..10] of integer;
i: integer;
begin
randomize;
write('Исходный массив: ');
for i := 1 to 10 do
begin
A[i] := random(81)-40;
write(A[i], ' ');
end;
writeln;
write('Измененный массив: ');
for i := 1 to 10 do
begin
if i mod 2 = 0 then A[i] := sqr(A[i])
else A[i] := sqr(i);
write(A[i], ' ');
end;
end.
//2
var
A: array [1..10] of real;
i: integer;
begin
randomize;
write('Исходный массив: ');
for i := 1 to 10 do
begin
A[i] := random(41)-20;
write(A[i], ' ');
end;
writeln;
write('Измененный массив: ');
for i := 1 to 10 do
begin
if A[i] < 0 then A[i] := sqr(A[i]);
if A[i] > 0 then A[i] := sqrt(A[i]);
write(A[i]:0:2, ' ');
end;
end.
//3
var
A: array [1..200] of real;
i, N: byte;
sum: real;
begin
write('Введите N = ');
readln(N);
sum := 0;
for i := 1 to N do
begin
write('З/П за ', i ,' месяц = ');
readln(A[i]);
sum := sum + A[i];
end;
writeln('Общий доход = ', sum:0:2);
end.
Readln(m);
rez:=1;
while (i<=m) do
begin
rez:=rez*m;
inc(m);
inc(i);
end;
write(rez);
Ответ:
Устройства ввода информации
Объяснение:
Ответ:
7
Объяснение:
Исходная фраза 46 букв:
съешь же ещё этих мягких французских булок, да выпей чаю
Поле удаления повторов 33 буквы:
съешьжщёэтихмягкфранцузблодвыпйчю
Удалены 13 символов:
ееихскихукаеа
е - 3 раза
и - 2 раза
х - 2 раза
к - 2 раза
а - 2 раза
с - 1 раз
у - 1 раз
Итого 7 неуникальных букв.
У бода код синхронный - легче автоматизировать расшифровку
у морза
код асинхронный - нет ничего лучше для организации связи на дальние
расстояния (при той же мощности передатчика) - лучше человеческого уха
ни один фильтр не выделит слабый сигнал!