латинские буквы T U Y W закодированы двоичными числами T- 111 U-011 Y-100 W- 110 какая последовательность букв закодирована двоичной строкой 111110100011?
var sum, number, n: integer; begin sum := 0; number := 1; write('Введите n: '); readln(n); while (number <= n) do begin sum := sum + number; number := number + 2; end; write('Сумма равна ', sum); end.
2)
var prod, number, n: integer; begin prod:= 1; number := 3; write('Введите n: '); readln(n); while (number <= n) do begin prod := prod * number; number := number + 3; end; write('Произведение равно ', prod); end.
3)
var number, n: integer; begin number := 1; write('Введите n: '); readln(n); writeln('Таблица:'); while (number <= n) do begin writeln(number:5, number*number:5, number*number*number:5); number := number + 1; end; end.
Для того, чтобы эта программа заработала надо добавить перед описанием процедуры F следующую строчку: procedure G(n: integer);forward; Так как в процедуре F есть вызов процедуры G описанной дальше по тексту программы. После исправления кода и запуска программы с F(12) получим 17 звездочек. По шагам это будет выглядеть так:
Вызов процедуры F и выполнение * n = 12 * n = 12 Вызов процедуры G и выполнение * n = 11 * n = 11 Вызов процедуры F и выполнение * n = 9 * n = 9 Вызов процедуры G и выполнение * n = 8 * n = 8 Вызов процедуры Fи выполнение * n = 6 * n = 6 Вызов процедуры G и выполнение * n = 5 * n = 5 Вызов процедуры F и выполнение * n = 3 * n = 3 Вызов процедуры G и выполнение * n = 2 * n = 2 Вызов процедуры F и выполнение * n = 0
T-111 W-110 Y-100 U-011