Найти произведение нечетных чисел от 1 до 100. - вопрос №82388531100 от OToMCTuTEL 01.01.2020 07:47

Question

Информатика: Найти произведение нечетных чисел от 1 до 100. блок схема

OToMCTuTEL · Answer

Program q193766551;var  i, s: Integer;begin  s := 0;  for i := 2 to 100 do    Inc(s, i * Integer(not Odd(i)));  WriteLn(s);end....