Решение с использование длинной арифметики. var i, j, n, len, rem: integer; a: array[1..200] of byte; begin write('Введите число: '); read(n); len := 1; a[1] := 1; for i := n + 1 to 99 {100} do begin for j := 1 to len do begin rem := a[j] * i + rem; a[j] := rem mod 10; rem := rem div 10; end; while rem > 0 do begin inc(len); a[len] := rem mod 10; rem := rem div 10; end; end; writeln('Произведение чисел из интервала (', n, '; 100): '); for i := len downto 1 do write(a[i]); end. Пример работы программы: Введите число: 1 Произведение чисел из интервала (1; 100): 1948348720420644788695888257080283249381963823594360049498643927185579338215778728274424636079639781709574621897447185108592230400000000000000000000
Что мы знаем о войне немного по рассказам бабушек и мам знаем, что надежда и тревога об руку ходили по домам слухи зависали как знамена дымом застилался горизонт многоверстный и многоименный жаждал крови ненасытный фронт а из тыла за волной волна шла латать верховные промашкивсасывала мальчиков война и выплевывала мертвые бумажкикаждый шаг к победе ли к бедесводки измеряли расстояньем даже самый распобедный день был комуто вечным расставаньемгоды возвращающий экраночевидцев честные романывсе равно останутся обманомссадины не заменяют рантолько изредка за толщей дней вдруг всплеснёт сирены голос лютыйзамирая криками детей и застынет сердце на минуту
8, 4
Сам код:
for i in range(8, 1, -4):
print(i,end=' ')
Объяснение:
как и просил/а ответ через запятую.