Var k:integer;
s, x, a:real;
begin
writeln('Введите цену за первые 75 газет.');
readln(a);
writeln('Введите цену за последующие газеты.');
readln(x);
k:=133;
s:=(a*75)+((133-75)*x);
writeln(s);
end.
Абвгдеёжзийклмнопрстуфхцчшщъыьэюя
1 шаг - 20101416226112 шаг - 11622614101023 шаг - йефемииб
Чаще всего встречаются буквы "е" и "и"
Номер буквы "е" - 6
Процесс создания приложения в Lazarus можно разделить на следующие этапы:
<span>1. Формирование окна программы – расположение необходимых элементов, задание размеров, изменение свойств; </span>
<span>2. Написание программного кода, описание свойств элементов, доступных только во время работы приложения, описание реакций на событие появления окна, нажатие на кнопку и других; </span>
<span>3. Отладка программы. </span>
Наибольшее пятизначное двоичное число будет состоять из всех единиц:
![11111_2](https://tex.z-dn.net/?f=11111_2)
Переведём его в десятичную систему:
![11111_2=1*2^4+1*2^3+1*2^2+1*2^1+1*2^0=16+8+4+2+1=31](https://tex.z-dn.net/?f=11111_2%3D1%2A2%5E4%2B1%2A2%5E3%2B1%2A2%5E2%2B1%2A2%5E1%2B1%2A2%5E0%3D16%2B8%2B4%2B2%2B1%3D31)
Хотя, гораздо проще такое число переводить как наименьшее шестизначное минус один: ![100000_2-1=1*2^5-1=32-1=31](https://tex.z-dn.net/?f=100000_2-1%3D1%2A2%5E5-1%3D32-1%3D31)
Ответ:
Создается константа nmax, равная 15
Создается переменная a, типа двумерного массива типа integer
Создаются переменные n, i, j, jmax типа byte
Создается переменная buf типа integer
Задается размерность, не больше nmax (то есть 15), и помещается в переменную n
Выводится исходная матрица, через 2 цикла, тк двумерный массив.
Дальше преобразуется матрица
Опять таки в двух циклах.
Выводится на экран и всё.