решение:
<span>var x,n:integer; </span>
<span>begin </span>
<span>n:=0; </span>
<span>for x:=11 to 99 do </span>
<span>if odd(x) then inc(n); </span>
<span>writeln(n); </span>
<span>readln; </span>
<span>end. </span>
<span>раскинув мозгами </span>
<span>begin writeln((99-10+1) div 2); readln; end. </span>
<span>а так как число двузначных нечетных всегда постоянно, то самое правильное решение </span>
<span>begin writeln(45); readln; end.</span>
1.жёсткий диск-<span>не является периферийным</span>
Var n,k,s:integer;
begin
write('n='); readln(n);
s:=0;
while n>0 do
begin
k:=n mod 10;
if k mod 2 <> 0 then s:=s+k;
n:=n div 10;
end;
writeln('s=',s);
end.
Пример:
n=123456
s=9
Задача
Дано число. Найти сумму и произведение его цифр.
Решение
Описание переменных:
n – число;
sum – сумма цифр;
mult – произведение цифр.
Алгоритм решения задачи:
<span>sum присвоить ноль.mult присвоить единицу (при умножении на ноль результат будет нулевым).<span>Пока n больше нуля <span>найти остаток от деления n на 10 (те. последнюю цифру числа), добавить его к сумме и увеличить произведение;избавиться от последнего разряда числа n путем деления нацело на число 10.</span></span></span>