Загадочные знаки на стенах гробниц- это иероглифы
var
s : integer;
m : BigInteger;
begin
m := 1;
write('даны числа:');
for var i := 1 to 20 do begin
write(' ', i);
s := s+(i*i);
m := m*(i*i);
end;
writeln(#13, 'сумма квадратов ', s, #13, 'произведение квадратов ', m);
end.
11. Дано:
Колич. символов алфавита (N)=8
Колич. символов сообщения=65
i=3(для подсчета количества информаций для одного символа)
Найти-Количество информации(бит)-?
Формула: N=2^i(Два в степени i)*65
Решение: N=2^3*65=8*65=520 бит
Ответ: 520 бит
1. Имя/Место 1 2 3 4 5
Алексей +
Борис +
Евгений +
Михаил +
Олег +
Ответ: Фотографий Алексея, Евгения и Михаила должен сделать фотограф
Для начала нужно сделать заготовку как на 1-ой картинке. В ячейке A2 - символ "x", в ячейке A3 - символ "y". В ячейке B2 находится формула =КОРЕНЬ(ABS(2,7*B$3^2 - 8,3*B$3)) + 11,2. Это видно на скриншоте №1. Для ячейки B2 нужно задать точность до тысячных, поэтому смотрим на скриншот №2: нужно нажать на значок в разделе Число, выделенный красным квадратом, появится панель, в которой надо выбрать Числовой и число десятичных знаков — 3.
В ячейке B3 стоит число -1. В ячейке C3 находится формула =B3+0,6, с помощью которой мы будем задавать шаг от 0,6. Потом нужно потянуть за квадратик (котрый находится на зеленом выделении ячейки справа снизу) вправо до того момента, пока в какой-нибудь ячейке не появится цифра 5-ть (у меня появилась в столбце L, это видно на скриншоте №4). Теперь поступаем также с ячейкой B2 — тянем вправо за квадратик до конца предыдущей строки (опять же, у меня это столбец L).
Таким образом, у нас имеется вторая строка со значениями x с шагом 0.6 от -1 до 5 и третья строка со значениями функции y, которая выполняется в зависимости от x
Var
p:char;
s,a,b:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите знак действия (+ - * /)');
readln(p);
case p of
'+': s:=a+b;
'*': s:=a*b;
'/': s:=a/b;
'-': s:=a-b;
end;
writeln(s);
end.
