Плачу много ! составьте программу для определения количества четных и нечетных цифр в записи данного натурального, пятизначного числа. (в обычном паскале)

//pascalabc.net (версия 3.1, сборка 1198 от 11.03.2016) var n,x,n1,n2: integer; //n1-кол-во четных, n2-нечетных begin   readln(n);   while n> 0 do  begin   x: =n mod 10;   if x mod 2 = 0 then n1: =n1+1       else n2: =n2+1;   n: =n div 10;   end;   writeln('четных: ',n1,'  нечетных: ',n2); end.

Var a,c,n : longint; begin   readln(a);   c: =0; n: =0;   while a> 0 do   begin       if a mod 10 < > 0 then           if odd(a mod 10) then inc(n) else inc(c);       a: =a div 10;   end;   writeln('чётных: ',c);   writeln('нечётных: ',n); end.

Одним из самых обоснованных расчета идеального веса считается формула Брока. Она учитывает соотношение веса, роста и возраста человека. С возрастом вес женщины и мужчины должен постепенно увеличиваться – это нормальный физиологический процесс. И килограммы, которые некоторые могут считать "лишними", на самом деле таковыми могут и не являться. Формула Брока для не достигших сорокалетия равна "рост (в см) - 110", после сорока лет – "рост (в см) - 100". При этом хрупким худощавым людям – астеникам – из результата нужно вычесть 10%, а обладатели массивного телосложения – гиперстеники – должны 10% к нему прибавить.  

Формула Брока для расчета идеального веса с учетом возраста:  

до 40 лет (кг) = рост (см) – 110

после 40 лет (кг) = рост (см) – 100

После этого астеники вычитают 10%, а гиперстеники прибавляют 10%.

Пример расчета:

Возраст – 30 лет

Рост – 168 см

Идеальный вес = 168 – 110 = 58 (кг)

как-то так