Var
a,b,c:integer;
begin
write('Введите a,b,c ');
readln(a,b,c);
writeln(a,'+',b,'+',c,'=',a+b+c);
writeln(a,'*',b,'*',c,'=',a*b*c);
writeln('(',a,'+',b,'+',c,')/3=',(a+b+c)/3);
end.
<u>Дано:</u>K=3*40*60
i = 6 (т.к
)
I = ?
<u>Решение:</u> бит. В задании нужно перевести биты в байты. 1 байт = 8 бит. Разделим на 8 (
)
Байт
Считаем и в итоге получаем
Байт
<em>Ответ: 5400 байт</em>
№1
а)
1-й шаг - длина цепочки - 3 символа
2-й шаг - в этой цепочке 3 буквы с-но число букв кратно трём. Прибавляем букву "С" в конец цепочки. Получаем цепочку РТПС
3-й шаг - меняем каждую букву на следующую, используя русский алфавит. Получаем СУРТ
4-й шаг - переписываем цепочку от конца к началу. Проще говоря: переворачиваем её. Из СУРТ получаем ТРУС
Результат: ТРУС
ЗА
1-й шаг - длина цепочки 2 символа
2-й шаг - 2 не кратно числу 3, с-но прибавляем букву "С" в начало цепочки. Получаем цепочку СЗА
3-й шаг - меняем каждую букву на следующую, используя русский алфавит. Получаем ТИБ
4-й шаг - переписываем цепочку от конца к началу. Проще говоря: переворачиваем её. Из ТИБ получаем БИТ
Результат: БИТ
б)
Дальше расписывать так-же подробно не буду, алгоритм всё равно тот-же
1-й шаг: ЁГКГФ - 5
2-й шаг: СЁГКГФ
3-й шаг: ТЖДЛДХ
4-й шаг: ХДЛДЖТ
5-й шаг: ХДЛДЖТ - 6
6-й шаг: ХДЛДЖТС
7-й шаг: ЦЕМЕЗУТ
8-й шаг: ТУЗЕМЕЦ
p.s
сорян если ошибки =(