Найти частное произведений четных и не четных цифр четырехзначного числа n

Var     i,n,x: integer;     a: array[1..4]of integer; begin readln(n); for i: =4 downto 1 do   begin   x: =n mod 10;   a[i]: =x;   n: =(n-x) div 10;   end; writeln('произведение четных: ',a[2]*a[4]); writeln('произведение нечетных: ',a[1]*a[3]); end.если можно использовать строковые функции, то будет  проще: var    i: integer;     n: string;     a: array[1..4]of integer; beginreadln(n); for i: =1 to 4 do  a[i]: =strtoint(n[i]); writeln('произведение четных: ',a[2]*a[4]); writeln('произведение нечетных: ',a[1]*a[3]); end.

Есть книжка такая, "песни о паскале". глава 47. нужно разложите число на цифры и вычислить соответствующие произведения, flag: false; m1: = 1; m2: = 1; while n < > 0 do begin if flag then m1: = m1*(n mod 10) else m2: = m2*(n mod 10); flag: = not flag; n: = n div 10; end; if m1< > 0 then writeln(m2 div m1) else writeln('бесконечность'); видела уже такой вопрос где-то года три назад.

Var month: array[1..12]of string[10]= (' январь ',' февраль ',' март ',' апрель ',' май ',' июнь ', ' июль ',' август ',' сентябрь ',' октябрь ',' ноябрь ',' декабрь '); procedure p(s: string); begin writeln(s); end; var n_m: integer; begin writeln(' введи номер месяца '); readln(n_m); case n_m of   1..12: p(month[n_m]);   else p(' такого месяца нет ');   end; case n_m of   1,3,5,7,8,10,12: p(' 31 день ');   4,6,9,11: p(' 30 дней ');   2: p(' 28 дней ');   end; case n_m of   12,1,2: p(' зима');   3,4,5: p(' весна');   6,7,8: p(' осень');   9,10,11: p(' лето');   end; end. пример: введи номер месяца5май31 деньвесна

ответ:

нужно регулярно использовать антистатикивокруг стола не должно быть свисающих проводовнужно убедиться, что все провода целы, нет ли оголенныхнельзя начинать работу в неисправный техникойповерхности стола должна быть чистойнельзя пользоваться компьютером в помещении с повышенной влажностью или мокрыми рукаминельзя размещать какие-либо предметы на проводахнельзя очшать поверхность компьютера от загрязнений, когда он включенв помещении с компьютером нельзя курить и употреблять пищу и напиткирасстояние между глазами и экраном не мение полметра