По учебнику семакина, параграф 4, , вопрос 7: составьте программы рисования символов е, п, б, ч, ц, ш, а также других фигур, состоящих из горизонтальных и вертикальных отрезков.
Для того чтобы узнать какое число стоит на 301 месте введем следующие обозначения: А = 0, Е = 1, У = 2. Тогда получим: 1) 000000, (0) 2) 000001, (1) 3) 000002, (2) 4) 000010, (3) ... 301) ... (300) а это получаются числа записанные в троичной системе счисления. На 301 месте будет стоять число равное в десятичной системе 300 Переведем число 300 из десятичной системы в троичную, получим: 300 : 3 = 100 - остаток 0 100 : 3 = 33 - остаток 1 33 : 3 = 11 - остаток 0 11 : 3 = 3 - остаток 2 3 : 3 = 1 - остаток 0 1 : 3 = 0 - остаток 1 т.е. получаем число 102010 в троичной системе счисления. Подставив обратно наши буквы получим ответ: ЕАУАУА.
1) 000000, (0)
2) 000001, (1)
3) 000002, (2)
4) 000010, (3)
...
301) ... (300)
а это получаются числа записанные в троичной системе счисления.
На 301 месте будет стоять число равное в десятичной системе 300
Переведем число 300 из десятичной системы в троичную, получим:
300 : 3 = 100 - остаток 0
100 : 3 = 33 - остаток 1
33 : 3 = 11 - остаток 0
11 : 3 = 3 - остаток 2
3 : 3 = 1 - остаток 0
1 : 3 = 0 - остаток 1
т.е. получаем число 102010 в троичной системе счисления.
Подставив обратно наши буквы получим ответ: ЕАУАУА.
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var zarazheno := 1;
var sum := zarazheno;
for var i := 1 to 4 do
begin
zarazheno *= 10;
sum += zarazheno;
WritelnFormat('{2} Новозараженно = {0}, всего заражено = {1}', zarazheno, sum, i);
end;
end.
Вывод
1 Новозараженно = 10, всего заражено = 11
2 Новозараженно = 100, всего заражено = 111
3 Новозараженно = 1000, всего заражено = 1111
4 Новозараженно = 10000, всего заражено = 11111