Циклической,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
1) var mas:array[1..10] of Integer;
i:integer;
begin
i := mas[1];
mas[1] := mas[6];
mas[6] := i;
<span>end.
Вот как то так
</span>
Var
k:longint;
d,n:integer;
begin
Write('Введите натуральное число (1-2147483647): ');
Read(k);
n:=0;
while k>0 do begin
d:=k mod 10;
k:=k div 10;
if (d mod 2)<>0 then Inc(n)
end;
Writeln('Количество нечетных цифр в числе равно ',n)
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число (1-2147483647): 35632105
Количество нечетных цифр в числе равно 5
Битых- нет, а пиксели которые выгорают - да
Ответ:
Выполнение операций процессора измеряется в тактах.