Напишите программу вычисления суммы факториалов всех нечетных чисел от 1 до 9 (паскаль)

118

281

Посмотреть ответы 2

Ответы на вопрос:

ЕваЛя

Информатика

4,7(12 оценок)

Var n, i: integer; function fact(n: integer): integer; begin if n = 1 then fact : = 1 else fact : = fact(n - 1) * n; end; begin for i : = 1 to 9 do if i mod 2 = 1 then writeln(fact(i)); end.

ооардпт

Информатика

4,7(62 оценок)

запомнить первый символ входного слова, не стирая его (перейти в состояние q1, если первый символ – a, q3, если первый символ – b и q5, если первый символ – c).

переместить автомат под последний символ и сравнить его с запомненным (в q2 для a, в q4 для b и в q6 для c). если они равны, то больше ничего не делать.

в противном случае уничтожить всё входное слово (q7).