<span>x = int(input())
a = <span>0
</span>b = <span>1
</span>while x > 0<span>:
</span>----if x%2 >0<span>:
</span></span>--------<span>a +=x%<span>8
</span></span>----<span>else<span>:
</span></span>--------<span>b*=x%<span>8
</span></span>----<span>x = x//<span>8
</span>print(a,b)
Пример
5982 12
</span>
Var n,i:integer;
begin
readln(n);
for i:=0 to n do
writeln('3 * ',i,' = ',3*i);
end.
Складемо алгоритм переходу вулиці.
Алгоритм Перехід
1.Подивитися ліваоруч.
2.Якщо немає перешкоди,то йти до середини вулиці,інакше пропустити машини,йти до середини вулиці.
3.Подивитися праворуч.
4.Якщо немає перешкоди,то завершити перехід,інакше пропустити машини,завершити перехід.
//PascalABC.NET
var
m,e,o,nu,fi : integer;
begin
var n := ReadInteger('Введите число элементов массива');
var a := ArrRandomInteger(n, -10, 10);
for var i := 0 to n-1 do begin
if a[i] mod 2 = 0 then
e += 1
else
o += 1;
if a[i] = 0 then nu += 1;
if a[i] = 5 then fi += 1
end;
writeln('Содержимое массива:');
a.println;
writeln('Количество чётных: ', e);
writeln('Количество нечётных: ', o);
writeln('Количество нулей: ', nu);
writeln('Количество пятёрок: ', fi)
end.