//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.
Это слово очень легкое, СИМВОЛ
<em>(1*2+3-4+5:6+7):8=1</em>
1*2=2
2*3=6
6-4=2
2+5=7
7-6=1
1+7=8
8:8=1
<em />
<em></em>
<em></em>
<em></em>
<em></em>
<em></em>
<em></em>
var
a, b : real;
begin
writeln('ax=b');
write('введите a, b: ');
readln(a, b);
writeln(a, 'x=', b);
if (a = 0) and (b = 0) then writeln('x= бесконечное множество')
else if (a = 0) and (b <> 0) then writeln('уравнение не имеет решений')
else begin
writeln('x=', b, '/', a);
writeln('x=', b/a);
end;
end.