Составьте программу для вычисления математических выражений, одновременно анализируя использование функций input() и рrіntо
В практических заданиях.
1) 352•985•25•3
2) 362 + 1206 + 215554 + 6957 +628


​
мне очень нужно

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,n,i,s:integer;
begin
  write('Число элементов последовательности ');
  readln(n);
  for i:=1 to n do begin
    write(i,' элемент последовательности = ');readln(a);
    if (a mod 2 <>0) then s:=s+a;
  end;
  writeln('Сумма нечетных = ',s);
 end.

Тестовое решение:
Число элементов последовательности 5
1 элемент последовательности = 3
2 элемент последовательности = 2
3 элемент последовательности = 4
4 элемент последовательности = 1
5 элемент последовательности = 5
Сумма нечетных = 9

1) ТБВ, 2) ЛЕЕТРФ, 3) 240АЯ, 4) 3

Объяснение:

1) БРА (длина нечетная) → РА (меняем буквы на следующие) → СБ (длина четная) → САБ (меняем буквы на следующие) → ТБВ

2) ГРОТ (длина четная) → ГГРОТ (меняем...) → ДДСПУ (длина нечетная) → КДДСПУ (меняем...) → ЛЕЕТРФ

3) 28МАЯ (длина нечетная) → 28АЯ (меняем цифры на следующие) → 39АЯ (длина четная) → 139АЯ (меняем...) → 240АЯ

4)  По первому правилу не подходит EHA, остались HCA AEA DAH ECC EEH ADE CEA AED

По второму правилу не подходят ECC, ADE и AED; остались HCA AEA DAH EEH CEA

По третьему правилу не подходят AEA и CEA ; остались HCA DAH EEH